;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%DLASWP %DLASWP %%DLASY2 %DLASY2 %%DLASYF %DLASYF
  %%DLASYF_AA %DLASYF_AA %%DLASYF_RK %DLASYF_RK %%DLASYF_ROOK %DLASYF_ROOK
  %%DLAT2S %DLAT2S %%DLATBS %DLATBS %%DLATDF %DLATDF %%DLATPS %DLATPS %%DLATRD
  %DLATRD %%DLATRS %DLATRS %%DLATRZ %DLATRZ %%DLATSQR %DLATSQR %%DLAUU2 %DLAUU2
  %%DLAUUM %DLAUUM %%DOPGTR %DOPGTR %%DOPMTR %DOPMTR %%DORBDB %DORBDB %%DORBDB1
  %DORBDB1 %%DORBDB2 %DORBDB2 %%DORBDB3 %DORBDB3 %%DORBDB4 %DORBDB4 %%DORBDB5
  %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1
  %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2
  %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2
  %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R
  %DORM2R %%DORMBR %DORMBR %%DORMHR %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ
  %%DORMQL %DORMQL %%DORMQR %DORMQR %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ
  %DORMRQ %%DORMRZ %DORMRZ %%DORMTR %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU
  %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2
  %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI
  %%DPFTRS %DPFTRS %%DPOCON %DPOCON %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB
  %%DPORFS %DPORFS %%DPORFSX %DPORFSX %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX
  %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI
  %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS
  %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS
  %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF %%DPTCON %DPTCON %%DPTEQR %DPTEQR
  %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS
  %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL %%DSB2ST_KERNELS %DSB2ST_KERNELS
  %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE %%DSBEVD %DSBEVD %%DSBEVD_2STAGE
  %DSBEVD_2STAGE %%DSBEVX %DSBEVX %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST
  %DSBGST %%DSBGV %DSBGV %%DSBGVD %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD
  %%DSFRK %DSFRK %%DSGESV %DSGESV %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD
  %DSPEVD %%DSPEVX %DSPEVX %%DSPGST %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD
  %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX
  %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS
  %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR
  %DSTEMR %%DSTEQR %DSTEQR %%DSTERF %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD
  %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3
  %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV %DSYCONV %%DSYCONVF %DSYCONVF
  %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV
  %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD %%DSYEVD_2STAGE %DSYEVD_2STAGE
  %%DSYEVR %DSYEVR %%DSYEVR_2STAGE %DSYEVR_2STAGE %%DSYEVX %DSYEVX
  %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 %DSYGS2 %%DSYGST %DSYGST %%DSYGV
  %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD %DSYGVD %%DSYGVX %DSYGVX
  %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV %%DSYSV_AA %DSYSV_AA
  %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK %%DSYSV_ROOK
  %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR %DSYSWAPR %%DSYTD2
  %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK %%DSYTF2_ROOK %DSYTF2_ROOK
  %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE %%DSYTRD_SY2SB %DSYTRD_SY2SB
  %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE
  %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2
  %DSYTRI2 %%DSYTRI2X %DSYTRI2X %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X
  %%DSYTRI_ROOK %DSYTRI_ROOK %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3
  %DSYTRS_3 %%DSYTRS_AA %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE
  %%DSYTRS_ROOK %DSYTRS_ROOK %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS
  %%DTFSM %DTFSM %%DTFTRI %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC
  %DTGEVC %%DTGEX2 %DTGEX2 %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA
  %%DTGSNA %DTGSNA %%DTGSY2 %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT
  %DTPLQT %%DTPLQT2 %DTPLQT2 %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT
  %DTPQRT %%DTPQRT2 %DTPQRT2 %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI
  %%DTPTRS %DTPTRS %%DTPTTF %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC
  %DTREVC %%DTREVC3 %DTREVC3 %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN
  %%DTRSNA %DTRSNA %%DTRSYL %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS
  %DTRTRS %%DTRTTF %DTRTTF %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1
  %%ICMAX1 %ICMAX1 %%IEEECK %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG
  %ILADIAG %%ILADLC %ILADLC %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE
  %ILAENV2STAGE %%ILAPREC %ILAPREC %%ILASLC %ILASLC))

(CFFI:DEFCFUN ("dlaswp_" %%DLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8877 ':INT32) (LDA-REF8879 ':INT32)
                              (K1-REF8880 ':INT32) (K2-REF8881 ':INT32)
                              (INCX-REF8883 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8879 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF8880 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF8881 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8883 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8878 A) (IPIV-REF8882 IPIV))
      (%%DLASWP N-REF8877 A-REF8878 LDA-REF8879 K1-REF8880 K2-REF8881
                IPIV-REF8882 INCX-REF8883))))

(CFFI:DEFCFUN ("dlasy2_" %%DLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRANL :POINTER)
  (LTRANR :POINTER)
  (ISGN :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (TL :POINTER)
  (LDTL :POINTER)
  (TR :POINTER)
  (LDTR :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASY2
                   (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASY2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF8884 ':INT32) (LTRANR-REF8885 ':INT32)
                              (ISGN-REF8886 ':INT32) (N1-REF8887 ':INT32)
                              (N2-REF8888 ':INT32) (LDTL-REF8890 ':INT32)
                              (LDTR-REF8892 ':INT32) (LDB-REF8894 ':INT32)
                              (SCALE-REF8895 ':DOUBLE) (LDX-REF8897 ':INT32)
                              (XNORM-REF8898 ':DOUBLE) (INFO-REF8899 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF8884 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF8885 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF8886 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF8887 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF8888 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF8890 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF8892 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8894 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8895 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8897 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF8898 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8899 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF8889 TL) (TR-REF8891 TR)
                                            (B-REF8893 B) (X-REF8896 X))
      (%%DLASY2 LTRANL-REF8884 LTRANR-REF8885 ISGN-REF8886 N1-REF8887
                N2-REF8888 TL-REF8889 LDTL-REF8890 TR-REF8891 LDTR-REF8892
                B-REF8893 LDB-REF8894 SCALE-REF8895 X-REF8896 LDX-REF8897
                XNORM-REF8898 INFO-REF8899))))

(CFFI:DEFCFUN ("dlasyf_" %%DLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8901 ':INT32) (NB-REF8902 ':INT32)
                              (KB-REF8903 ':INT32) (LDA-REF8905 ':INT32)
                              (LDW-REF8908 ':INT32) (INFO-REF8909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8901 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8902 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8903 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8905 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8908 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8904 A) (IPIV-REF8906 IPIV)
                                            (W-REF8907 W))
      (%%DLASYF UPLO N-REF8901 NB-REF8902 KB-REF8903 A-REF8904 LDA-REF8905
                IPIV-REF8906 W-REF8907 LDW-REF8908 INFO-REF8909))))

(CFFI:DEFCFUN ("dlasyf_aa_" %%DLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF8911 ':INT32) (M-REF8912 ':INT32)
                              (NB-REF8913 ':INT32) (LDA-REF8915 ':INT32)
                              (LDH-REF8918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF8911 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8912 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8913 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8915 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8918 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8914 A) (IPIV-REF8916 IPIV)
                                            (H-REF8917 H) (WORK-REF8919 WORK))
      (%%DLASYF_AA UPLO J1-REF8911 M-REF8912 NB-REF8913 A-REF8914 LDA-REF8915
                   IPIV-REF8916 H-REF8917 LDH-REF8918 WORK-REF8919))))

(CFFI:DEFCFUN ("dlasyf_rk_" %%DLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8921 ':INT32) (NB-REF8922 ':INT32)
                              (KB-REF8923 ':INT32) (LDA-REF8925 ':INT32)
                              (LDW-REF8929 ':INT32) (INFO-REF8930 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8921 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8922 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8923 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8925 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8929 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8930 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8924 A) (E-REF8926 E)
                                            (IPIV-REF8927 IPIV) (W-REF8928 W))
      (%%DLASYF_RK UPLO N-REF8921 NB-REF8922 KB-REF8923 A-REF8924 LDA-REF8925
                   E-REF8926 IPIV-REF8927 W-REF8928 LDW-REF8929 INFO-REF8930))))

(CFFI:DEFCFUN ("dlasyf_rook_" %%DLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8932 ':INT32) (NB-REF8933 ':INT32)
                              (KB-REF8934 ':INT32) (LDA-REF8936 ':INT32)
                              (LDW-REF8939 ':INT32) (INFO-REF8940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8932 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8933 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8934 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8936 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8939 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8935 A) (IPIV-REF8937 IPIV)
                                            (W-REF8938 W))
      (%%DLASYF_ROOK UPLO N-REF8932 NB-REF8933 KB-REF8934 A-REF8935 LDA-REF8936
                     IPIV-REF8937 W-REF8938 LDW-REF8939 INFO-REF8940))))

(CFFI:DEFCFUN ("dlat2s_" %%DLAT2S :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAT2S (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAT2S)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8942 ':INT32) (LDA-REF8944 ':INT32)
                              (LDSA-REF8946 ':INT32) (INFO-REF8947 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8942 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8944 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF8946 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8947 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8943 A) (SA-REF8945 SA))
      (%%DLAT2S UPLO N-REF8942 A-REF8943 LDA-REF8944 SA-REF8945 LDSA-REF8946
                INFO-REF8947))))

(CFFI:DEFCFUN ("dlatbs_" %%DLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8952 ':INT32) (KD-REF8953 ':INT32)
                              (LDAB-REF8955 ':INT32) (SCALE-REF8957 ':DOUBLE)
                              (INFO-REF8959 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8953 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8955 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8957 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8959 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8954 AB) (X-REF8956 X)
                                            (CNORM-REF8958 CNORM))
      (%%DLATBS UPLO TRANS DIAG NORMIN N-REF8952 KD-REF8953 AB-REF8954
                LDAB-REF8955 X-REF8956 SCALE-REF8957 CNORM-REF8958
                INFO-REF8959))))

(CFFI:DEFCFUN ("dlatdf_" %%DLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %DLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF8960 ':INT32) (N-REF8961 ':INT32)
                              (LDZ-REF8963 ':INT32) (RDSUM-REF8965 ':DOUBLE)
                              (RDSCAL-REF8966 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF8960 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8961 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8963 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF8965 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF8966 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8962 Z) (RHS-REF8964 RHS)
                                            (IPIV-REF8967 IPIV)
                                            (JPIV-REF8968 JPIV))
      (%%DLATDF IJOB-REF8960 N-REF8961 Z-REF8962 LDZ-REF8963 RHS-REF8964
                RDSUM-REF8965 RDSCAL-REF8966 IPIV-REF8967 JPIV-REF8968))))

(CFFI:DEFCFUN ("dlatps_" %%DLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8973 ':INT32) (SCALE-REF8976 ':DOUBLE)
                              (INFO-REF8978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8973 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8976 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8974 AP) (X-REF8975 X)
                                            (CNORM-REF8977 CNORM))
      (%%DLATPS UPLO TRANS DIAG NORMIN N-REF8973 AP-REF8974 X-REF8975
                SCALE-REF8976 CNORM-REF8977 INFO-REF8978))))

(CFFI:DEFCFUN ("dlatrd_" %%DLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %DLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8980 ':INT32) (NB-REF8981 ':INT32)
                              (LDA-REF8983 ':INT32) (LDW-REF8987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8981 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8987 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8982 A) (E-REF8984 E)
                                            (TAU-REF8985 TAU) (W-REF8986 W))
      (%%DLATRD UPLO N-REF8980 NB-REF8981 A-REF8982 LDA-REF8983 E-REF8984
                TAU-REF8985 W-REF8986 LDW-REF8987))))

(CFFI:DEFCFUN ("dlatrs_" %%DLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8992 ':INT32) (LDA-REF8994 ':INT32)
                              (SCALE-REF8996 ':DOUBLE) (INFO-REF8998 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8994 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8996 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8998 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8993 A) (X-REF8995 X)
                                            (CNORM-REF8997 CNORM))
      (%%DLATRS UPLO TRANS DIAG NORMIN N-REF8992 A-REF8993 LDA-REF8994
                X-REF8995 SCALE-REF8996 CNORM-REF8997 INFO-REF8998))))

(CFFI:DEFCFUN ("dlatrz_" %%DLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8999 ':INT32) (N-REF9000 ':INT32)
                              (L-REF9001 ':INT32) (LDA-REF9003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8999 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9001 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9003 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9002 A) (TAU-REF9004 TAU)
                                            (WORK-REF9005 WORK))
      (%%DLATRZ M-REF8999 N-REF9000 L-REF9001 A-REF9002 LDA-REF9003 TAU-REF9004
                WORK-REF9005))))

(CFFI:DEFCFUN ("dlatsqr_" %%DLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9006 ':INT32) (N-REF9007 ':INT32)
                              (MB-REF9008 ':INT32) (NB-REF9009 ':INT32)
                              (LDA-REF9011 ':INT32) (LDT-REF9013 ':INT32)
                              (LWORK-REF9015 ':INT32) (INFO-REF9016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9006 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9007 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9008 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9009 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9011 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9013 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9015 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9016 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9010 A) (T-REF9012 T)
                                            (WORK-REF9014 WORK))
      (%%DLATSQR M-REF9006 N-REF9007 MB-REF9008 NB-REF9009 A-REF9010
                 LDA-REF9011 T-REF9012 LDT-REF9013 WORK-REF9014 LWORK-REF9015
                 INFO-REF9016))))

(CFFI:DEFCFUN ("dlauu2_" %%DLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9018 ':INT32) (LDA-REF9020 ':INT32)
                              (INFO-REF9021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9020 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9021 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9019 A))
      (%%DLAUU2 UPLO N-REF9018 A-REF9019 LDA-REF9020 INFO-REF9021))))

(CFFI:DEFCFUN ("dlauum_" %%DLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9023 ':INT32) (LDA-REF9025 ':INT32)
                              (INFO-REF9026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9025 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9026 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9024 A))
      (%%DLAUUM UPLO N-REF9023 A-REF9024 LDA-REF9025 INFO-REF9026))))

(CFFI:DEFCFUN ("dopgtr_" %%DOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9028 ':INT32) (LDQ-REF9032 ':INT32)
                              (INFO-REF9034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9032 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9029 AP) (TAU-REF9030 TAU)
                                            (Q-REF9031 Q) (WORK-REF9033 WORK))
      (%%DOPGTR UPLO N-REF9028 AP-REF9029 TAU-REF9030 Q-REF9031 LDQ-REF9032
                WORK-REF9033 INFO-REF9034))))

(CFFI:DEFCFUN ("dopmtr_" %%DOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DOPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9038 ':INT32) (N-REF9039 ':INT32)
                              (LDC-REF9043 ':INT32) (INFO-REF9045 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9038 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9043 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9045 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9040 AP) (TAU-REF9041 TAU)
                                            (C-REF9042 C) (WORK-REF9044 WORK))
      (%%DOPMTR SIDE UPLO TRANS M-REF9038 N-REF9039 AP-REF9040 TAU-REF9041
                C-REF9042 LDC-REF9043 WORK-REF9044 INFO-REF9045))))

(CFFI:DEFCFUN ("dorbdb_" %%DORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9048 ':INT32) (P-REF9049 ':INT32)
                              (Q-REF9050 ':INT32) (LDX11-REF9052 ':INT32)
                              (LDX12-REF9054 ':INT32) (LDX21-REF9056 ':INT32)
                              (LDX22-REF9058 ':INT32) (LWORK-REF9066 ':INT32)
                              (INFO-REF9067 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9048 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9049 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9050 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9052 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9054 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9056 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9058 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9066 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9067 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9051 X11) (X12-REF9053 X12)
                                            (X21-REF9055 X21) (X22-REF9057 X22)
                                            (THETA-REF9059 THETA)
                                            (PHI-REF9060 PHI)
                                            (TAUP1-REF9061 TAUP1)
                                            (TAUP2-REF9062 TAUP2)
                                            (TAUQ1-REF9063 TAUQ1)
                                            (TAUQ2-REF9064 TAUQ2)
                                            (WORK-REF9065 WORK))
      (%%DORBDB TRANS SIGNS M-REF9048 P-REF9049 Q-REF9050 X11-REF9051
                LDX11-REF9052 X12-REF9053 LDX12-REF9054 X21-REF9055
                LDX21-REF9056 X22-REF9057 LDX22-REF9058 THETA-REF9059
                PHI-REF9060 TAUP1-REF9061 TAUP2-REF9062 TAUQ1-REF9063
                TAUQ2-REF9064 WORK-REF9065 LWORK-REF9066 INFO-REF9067))))

(CFFI:DEFCFUN ("dorbdb1_" %%DORBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9068 ':INT32) (P-REF9069 ':INT32)
                              (Q-REF9070 ':INT32) (LDX11-REF9072 ':INT32)
                              (LDX21-REF9074 ':INT32) (LWORK-REF9081 ':INT32)
                              (INFO-REF9082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9068 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9069 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9070 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9072 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9074 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9081 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9082 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9071 X11) (X21-REF9073 X21)
                                            (THETA-REF9075 THETA)
                                            (PHI-REF9076 PHI)
                                            (TAUP1-REF9077 TAUP1)
                                            (TAUP2-REF9078 TAUP2)
                                            (TAUQ1-REF9079 TAUQ1)
                                            (WORK-REF9080 WORK))
      (%%DORBDB1 M-REF9068 P-REF9069 Q-REF9070 X11-REF9071 LDX11-REF9072
                 X21-REF9073 LDX21-REF9074 THETA-REF9075 PHI-REF9076
                 TAUP1-REF9077 TAUP2-REF9078 TAUQ1-REF9079 WORK-REF9080
                 LWORK-REF9081 INFO-REF9082))))

(CFFI:DEFCFUN ("dorbdb2_" %%DORBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9083 ':INT32) (P-REF9084 ':INT32)
                              (Q-REF9085 ':INT32) (LDX11-REF9087 ':INT32)
                              (LDX21-REF9089 ':INT32) (LWORK-REF9096 ':INT32)
                              (INFO-REF9097 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9083 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9084 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9085 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9087 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9089 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9096 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9097 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9086 X11) (X21-REF9088 X21)
                                            (THETA-REF9090 THETA)
                                            (PHI-REF9091 PHI)
                                            (TAUP1-REF9092 TAUP1)
                                            (TAUP2-REF9093 TAUP2)
                                            (TAUQ1-REF9094 TAUQ1)
                                            (WORK-REF9095 WORK))
      (%%DORBDB2 M-REF9083 P-REF9084 Q-REF9085 X11-REF9086 LDX11-REF9087
                 X21-REF9088 LDX21-REF9089 THETA-REF9090 PHI-REF9091
                 TAUP1-REF9092 TAUP2-REF9093 TAUQ1-REF9094 WORK-REF9095
                 LWORK-REF9096 INFO-REF9097))))

(CFFI:DEFCFUN ("dorbdb3_" %%DORBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9098 ':INT32) (P-REF9099 ':INT32)
                              (Q-REF9100 ':INT32) (LDX11-REF9102 ':INT32)
                              (LDX21-REF9104 ':INT32) (LWORK-REF9111 ':INT32)
                              (INFO-REF9112 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9098 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9099 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9100 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9102 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9104 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9111 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9112 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9101 X11) (X21-REF9103 X21)
                                            (THETA-REF9105 THETA)
                                            (PHI-REF9106 PHI)
                                            (TAUP1-REF9107 TAUP1)
                                            (TAUP2-REF9108 TAUP2)
                                            (TAUQ1-REF9109 TAUQ1)
                                            (WORK-REF9110 WORK))
      (%%DORBDB3 M-REF9098 P-REF9099 Q-REF9100 X11-REF9101 LDX11-REF9102
                 X21-REF9103 LDX21-REF9104 THETA-REF9105 PHI-REF9106
                 TAUP1-REF9107 TAUP2-REF9108 TAUQ1-REF9109 WORK-REF9110
                 LWORK-REF9111 INFO-REF9112))))

(CFFI:DEFCFUN ("dorbdb4_" %%DORBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9113 ':INT32) (P-REF9114 ':INT32)
                              (Q-REF9115 ':INT32) (LDX11-REF9117 ':INT32)
                              (LDX21-REF9119 ':INT32) (LWORK-REF9127 ':INT32)
                              (INFO-REF9128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9113 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9114 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9115 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9117 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9119 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9127 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9128 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9116 X11) (X21-REF9118 X21)
                                            (THETA-REF9120 THETA)
                                            (PHI-REF9121 PHI)
                                            (TAUP1-REF9122 TAUP1)
                                            (TAUP2-REF9123 TAUP2)
                                            (TAUQ1-REF9124 TAUQ1)
                                            (PHANTOM-REF9125 PHANTOM)
                                            (WORK-REF9126 WORK))
      (%%DORBDB4 M-REF9113 P-REF9114 Q-REF9115 X11-REF9116 LDX11-REF9117
                 X21-REF9118 LDX21-REF9119 THETA-REF9120 PHI-REF9121
                 TAUP1-REF9122 TAUP2-REF9123 TAUQ1-REF9124 PHANTOM-REF9125
                 WORK-REF9126 LWORK-REF9127 INFO-REF9128))))

(CFFI:DEFCFUN ("dorbdb5_" %%DORBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9129 ':INT32) (M2-REF9130 ':INT32)
                              (N-REF9131 ':INT32) (INCX1-REF9133 ':INT32)
                              (INCX2-REF9135 ':INT32) (LDQ1-REF9137 ':INT32)
                              (LDQ2-REF9139 ':INT32) (LWORK-REF9141 ':INT32)
                              (INFO-REF9142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9129 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9130 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9133 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9135 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9137 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9139 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9141 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9132 X1) (X2-REF9134 X2)
                                            (Q1-REF9136 Q1) (Q2-REF9138 Q2)
                                            (WORK-REF9140 WORK))
      (%%DORBDB5 M1-REF9129 M2-REF9130 N-REF9131 X1-REF9132 INCX1-REF9133
                 X2-REF9134 INCX2-REF9135 Q1-REF9136 LDQ1-REF9137 Q2-REF9138
                 LDQ2-REF9139 WORK-REF9140 LWORK-REF9141 INFO-REF9142))))

(CFFI:DEFCFUN ("dorbdb6_" %%DORBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9143 ':INT32) (M2-REF9144 ':INT32)
                              (N-REF9145 ':INT32) (INCX1-REF9147 ':INT32)
                              (INCX2-REF9149 ':INT32) (LDQ1-REF9151 ':INT32)
                              (LDQ2-REF9153 ':INT32) (LWORK-REF9155 ':INT32)
                              (INFO-REF9156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9143 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9144 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9147 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9149 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9151 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9153 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9155 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9146 X1) (X2-REF9148 X2)
                                            (Q1-REF9150 Q1) (Q2-REF9152 Q2)
                                            (WORK-REF9154 WORK))
      (%%DORBDB6 M1-REF9143 M2-REF9144 N-REF9145 X1-REF9146 INCX1-REF9147
                 X2-REF9148 INCX2-REF9149 Q1-REF9150 LDQ1-REF9151 Q2-REF9152
                 LDQ2-REF9153 WORK-REF9154 LWORK-REF9155 INFO-REF9156))))

(CFFI:DEFCFUN ("dorcsd_" %%DORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9163 ':INT32) (P-REF9164 ':INT32)
                              (Q-REF9165 ':INT32) (LDX11-REF9167 ':INT32)
                              (LDX12-REF9169 ':INT32) (LDX21-REF9171 ':INT32)
                              (LDX22-REF9173 ':INT32) (LDU1-REF9176 ':INT32)
                              (LDU2-REF9178 ':INT32) (LDV1T-REF9180 ':INT32)
                              (LDV2T-REF9182 ':INT32) (LWORK-REF9184 ':INT32)
                              (INFO-REF9186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9163 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9164 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9165 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9167 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9169 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9171 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9173 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9176 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9178 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9180 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF9182 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9184 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9166 X11) (X12-REF9168 X12)
                                            (X21-REF9170 X21) (X22-REF9172 X22)
                                            (THETA-REF9174 THETA)
                                            (U1-REF9175 U1) (U2-REF9177 U2)
                                            (V1T-REF9179 V1T) (V2T-REF9181 V2T)
                                            (WORK-REF9183 WORK)
                                            (IWORK-REF9185 IWORK))
      (%%DORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF9163 P-REF9164
                Q-REF9165 X11-REF9166 LDX11-REF9167 X12-REF9168 LDX12-REF9169
                X21-REF9170 LDX21-REF9171 X22-REF9172 LDX22-REF9173
                THETA-REF9174 U1-REF9175 LDU1-REF9176 U2-REF9177 LDU2-REF9178
                V1T-REF9179 LDV1T-REF9180 V2T-REF9181 LDV2T-REF9182
                WORK-REF9183 LWORK-REF9184 IWORK-REF9185 INFO-REF9186))))

(CFFI:DEFCFUN ("dorcsd2by1_" %%DORCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9190 ':INT32) (P-REF9191 ':INT32)
                              (Q-REF9192 ':INT32) (LDX11-REF9194 ':INT32)
                              (LDX21-REF9196 ':INT32) (LDU1-REF9199 ':INT32)
                              (LDU2-REF9201 ':INT32) (LDV1T-REF9203 ':INT32)
                              (LWORK-REF9205 ':INT32) (INFO-REF9207 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9190 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9191 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9192 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9194 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9196 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9199 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9201 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9203 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9205 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9207 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9193 X11) (X21-REF9195 X21)
                                            (THETA-REF9197 THETA)
                                            (U1-REF9198 U1) (U2-REF9200 U2)
                                            (V1T-REF9202 V1T)
                                            (WORK-REF9204 WORK)
                                            (IWORK-REF9206 IWORK))
      (%%DORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF9190 P-REF9191 Q-REF9192
                    X11-REF9193 LDX11-REF9194 X21-REF9195 LDX21-REF9196
                    THETA-REF9197 U1-REF9198 LDU1-REF9199 U2-REF9200
                    LDU2-REF9201 V1T-REF9202 LDV1T-REF9203 WORK-REF9204
                    LWORK-REF9205 IWORK-REF9206 INFO-REF9207))))

(CFFI:DEFCFUN ("dorg2l_" %%DORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9208 ':INT32) (N-REF9209 ':INT32)
                              (K-REF9210 ':INT32) (LDA-REF9212 ':INT32)
                              (INFO-REF9215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9208 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9210 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9212 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9211 A) (TAU-REF9213 TAU)
                                            (WORK-REF9214 WORK))
      (%%DORG2L M-REF9208 N-REF9209 K-REF9210 A-REF9211 LDA-REF9212 TAU-REF9213
                WORK-REF9214 INFO-REF9215))))

(CFFI:DEFCFUN ("dorg2r_" %%DORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9216 ':INT32) (N-REF9217 ':INT32)
                              (K-REF9218 ':INT32) (LDA-REF9220 ':INT32)
                              (INFO-REF9223 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9218 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9220 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9223 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9219 A) (TAU-REF9221 TAU)
                                            (WORK-REF9222 WORK))
      (%%DORG2R M-REF9216 N-REF9217 K-REF9218 A-REF9219 LDA-REF9220 TAU-REF9221
                WORK-REF9222 INFO-REF9223))))

(CFFI:DEFCFUN ("dorgbr_" %%DORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9225 ':INT32) (N-REF9226 ':INT32)
                              (K-REF9227 ':INT32) (LDA-REF9229 ':INT32)
                              (LWORK-REF9232 ':INT32) (INFO-REF9233 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9225 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9227 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9229 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9232 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9233 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9228 A) (TAU-REF9230 TAU)
                                            (WORK-REF9231 WORK))
      (%%DORGBR VECT M-REF9225 N-REF9226 K-REF9227 A-REF9228 LDA-REF9229
                TAU-REF9230 WORK-REF9231 LWORK-REF9232 INFO-REF9233))))

(CFFI:DEFCFUN ("dorghr_" %%DORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9234 ':INT32) (ILO-REF9235 ':INT32)
                              (IHI-REF9236 ':INT32) (LDA-REF9238 ':INT32)
                              (LWORK-REF9241 ':INT32) (INFO-REF9242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9234 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9235 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9236 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9238 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9241 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9237 A) (TAU-REF9239 TAU)
                                            (WORK-REF9240 WORK))
      (%%DORGHR N-REF9234 ILO-REF9235 IHI-REF9236 A-REF9237 LDA-REF9238
                TAU-REF9239 WORK-REF9240 LWORK-REF9241 INFO-REF9242))))

(CFFI:DEFCFUN ("dorgl2_" %%DORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9243 ':INT32) (N-REF9244 ':INT32)
                              (K-REF9245 ':INT32) (LDA-REF9247 ':INT32)
                              (INFO-REF9250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9243 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9245 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9250 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9246 A) (TAU-REF9248 TAU)
                                            (WORK-REF9249 WORK))
      (%%DORGL2 M-REF9243 N-REF9244 K-REF9245 A-REF9246 LDA-REF9247 TAU-REF9248
                WORK-REF9249 INFO-REF9250))))

(CFFI:DEFCFUN ("dorglq_" %%DORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9251 ':INT32) (N-REF9252 ':INT32)
                              (K-REF9253 ':INT32) (LDA-REF9255 ':INT32)
                              (LWORK-REF9258 ':INT32) (INFO-REF9259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9251 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9252 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9253 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9255 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9258 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9254 A) (TAU-REF9256 TAU)
                                            (WORK-REF9257 WORK))
      (%%DORGLQ M-REF9251 N-REF9252 K-REF9253 A-REF9254 LDA-REF9255 TAU-REF9256
                WORK-REF9257 LWORK-REF9258 INFO-REF9259))))

(CFFI:DEFCFUN ("dorgql_" %%DORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9260 ':INT32) (N-REF9261 ':INT32)
                              (K-REF9262 ':INT32) (LDA-REF9264 ':INT32)
                              (LWORK-REF9267 ':INT32) (INFO-REF9268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9260 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9262 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9264 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9267 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9268 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9263 A) (TAU-REF9265 TAU)
                                            (WORK-REF9266 WORK))
      (%%DORGQL M-REF9260 N-REF9261 K-REF9262 A-REF9263 LDA-REF9264 TAU-REF9265
                WORK-REF9266 LWORK-REF9267 INFO-REF9268))))

(CFFI:DEFCFUN ("dorgqr_" %%DORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9269 ':INT32) (N-REF9270 ':INT32)
                              (K-REF9271 ':INT32) (LDA-REF9273 ':INT32)
                              (LWORK-REF9276 ':INT32) (INFO-REF9277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9269 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9271 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9273 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9276 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9277 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9272 A) (TAU-REF9274 TAU)
                                            (WORK-REF9275 WORK))
      (%%DORGQR M-REF9269 N-REF9270 K-REF9271 A-REF9272 LDA-REF9273 TAU-REF9274
                WORK-REF9275 LWORK-REF9276 INFO-REF9277))))

(CFFI:DEFCFUN ("dorgr2_" %%DORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9278 ':INT32) (N-REF9279 ':INT32)
                              (K-REF9280 ':INT32) (LDA-REF9282 ':INT32)
                              (INFO-REF9285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9278 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9280 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9282 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9285 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9281 A) (TAU-REF9283 TAU)
                                            (WORK-REF9284 WORK))
      (%%DORGR2 M-REF9278 N-REF9279 K-REF9280 A-REF9281 LDA-REF9282 TAU-REF9283
                WORK-REF9284 INFO-REF9285))))

(CFFI:DEFCFUN ("dorgrq_" %%DORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9286 ':INT32) (N-REF9287 ':INT32)
                              (K-REF9288 ':INT32) (LDA-REF9290 ':INT32)
                              (LWORK-REF9293 ':INT32) (INFO-REF9294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9286 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9287 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9288 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9290 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9293 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9294 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9289 A) (TAU-REF9291 TAU)
                                            (WORK-REF9292 WORK))
      (%%DORGRQ M-REF9286 N-REF9287 K-REF9288 A-REF9289 LDA-REF9290 TAU-REF9291
                WORK-REF9292 LWORK-REF9293 INFO-REF9294))))

(CFFI:DEFCFUN ("dorgtr_" %%DORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9296 ':INT32) (LDA-REF9298 ':INT32)
                              (LWORK-REF9301 ':INT32) (INFO-REF9302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9298 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9301 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9302 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9297 A) (TAU-REF9299 TAU)
                                            (WORK-REF9300 WORK))
      (%%DORGTR UPLO N-REF9296 A-REF9297 LDA-REF9298 TAU-REF9299 WORK-REF9300
                LWORK-REF9301 INFO-REF9302))))

(CFFI:DEFCFUN ("dorm22_" %%DORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9305 ':INT32) (N-REF9306 ':INT32)
                              (N1-REF9307 ':INT32) (N2-REF9308 ':INT32)
                              (LDQ-REF9310 ':INT32) (LDC-REF9312 ':INT32)
                              (LWORK-REF9314 ':INT32) (INFO-REF9315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9305 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF9307 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF9308 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9310 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9312 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9314 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9315 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF9309 Q) (C-REF9311 C)
                                            (WORK-REF9313 WORK))
      (%%DORM22 SIDE TRANS M-REF9305 N-REF9306 N1-REF9307 N2-REF9308 Q-REF9309
                LDQ-REF9310 C-REF9311 LDC-REF9312 WORK-REF9313 LWORK-REF9314
                INFO-REF9315))))

(CFFI:DEFCFUN ("dorm2l_" %%DORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9318 ':INT32) (N-REF9319 ':INT32)
                              (K-REF9320 ':INT32) (LDA-REF9322 ':INT32)
                              (LDC-REF9325 ':INT32) (INFO-REF9327 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9318 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9320 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9322 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9325 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9327 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9321 A) (TAU-REF9323 TAU)
                                            (C-REF9324 C) (WORK-REF9326 WORK))
      (%%DORM2L SIDE TRANS M-REF9318 N-REF9319 K-REF9320 A-REF9321 LDA-REF9322
                TAU-REF9323 C-REF9324 LDC-REF9325 WORK-REF9326 INFO-REF9327))))

(CFFI:DEFCFUN ("dorm2r_" %%DORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9330 ':INT32) (N-REF9331 ':INT32)
                              (K-REF9332 ':INT32) (LDA-REF9334 ':INT32)
                              (LDC-REF9337 ':INT32) (INFO-REF9339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9330 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9332 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9334 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9337 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9333 A) (TAU-REF9335 TAU)
                                            (C-REF9336 C) (WORK-REF9338 WORK))
      (%%DORM2R SIDE TRANS M-REF9330 N-REF9331 K-REF9332 A-REF9333 LDA-REF9334
                TAU-REF9335 C-REF9336 LDC-REF9337 WORK-REF9338 INFO-REF9339))))

(CFFI:DEFCFUN ("dormbr_" %%DORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9343 ':INT32) (N-REF9344 ':INT32)
                              (K-REF9345 ':INT32) (LDA-REF9347 ':INT32)
                              (LDC-REF9350 ':INT32) (LWORK-REF9352 ':INT32)
                              (INFO-REF9353 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9343 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9344 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9345 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9347 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9350 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9352 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9353 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9346 A) (TAU-REF9348 TAU)
                                            (C-REF9349 C) (WORK-REF9351 WORK))
      (%%DORMBR VECT SIDE TRANS M-REF9343 N-REF9344 K-REF9345 A-REF9346
                LDA-REF9347 TAU-REF9348 C-REF9349 LDC-REF9350 WORK-REF9351
                LWORK-REF9352 INFO-REF9353))))

(CFFI:DEFCFUN ("dormhr_" %%DORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9356 ':INT32) (N-REF9357 ':INT32)
                              (ILO-REF9358 ':INT32) (IHI-REF9359 ':INT32)
                              (LDA-REF9361 ':INT32) (LDC-REF9364 ':INT32)
                              (LWORK-REF9366 ':INT32) (INFO-REF9367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9356 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9358 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9359 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9361 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9364 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9366 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9367 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9360 A) (TAU-REF9362 TAU)
                                            (C-REF9363 C) (WORK-REF9365 WORK))
      (%%DORMHR SIDE TRANS M-REF9356 N-REF9357 ILO-REF9358 IHI-REF9359
                A-REF9360 LDA-REF9361 TAU-REF9362 C-REF9363 LDC-REF9364
                WORK-REF9365 LWORK-REF9366 INFO-REF9367))))

(CFFI:DEFCFUN ("dorml2_" %%DORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9370 ':INT32) (N-REF9371 ':INT32)
                              (K-REF9372 ':INT32) (LDA-REF9374 ':INT32)
                              (LDC-REF9377 ':INT32) (INFO-REF9379 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9370 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9372 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9374 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9377 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9379 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9373 A) (TAU-REF9375 TAU)
                                            (C-REF9376 C) (WORK-REF9378 WORK))
      (%%DORML2 SIDE TRANS M-REF9370 N-REF9371 K-REF9372 A-REF9373 LDA-REF9374
                TAU-REF9375 C-REF9376 LDC-REF9377 WORK-REF9378 INFO-REF9379))))

(CFFI:DEFCFUN ("dormlq_" %%DORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9382 ':INT32) (N-REF9383 ':INT32)
                              (K-REF9384 ':INT32) (LDA-REF9386 ':INT32)
                              (LDC-REF9389 ':INT32) (LWORK-REF9391 ':INT32)
                              (INFO-REF9392 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9382 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9384 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9386 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9389 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9391 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9392 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9385 A) (TAU-REF9387 TAU)
                                            (C-REF9388 C) (WORK-REF9390 WORK))
      (%%DORMLQ SIDE TRANS M-REF9382 N-REF9383 K-REF9384 A-REF9385 LDA-REF9386
                TAU-REF9387 C-REF9388 LDC-REF9389 WORK-REF9390 LWORK-REF9391
                INFO-REF9392))))

(CFFI:DEFCFUN ("dormql_" %%DORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9395 ':INT32) (N-REF9396 ':INT32)
                              (K-REF9397 ':INT32) (LDA-REF9399 ':INT32)
                              (LDC-REF9402 ':INT32) (LWORK-REF9404 ':INT32)
                              (INFO-REF9405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9395 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9397 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9402 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9404 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9398 A) (TAU-REF9400 TAU)
                                            (C-REF9401 C) (WORK-REF9403 WORK))
      (%%DORMQL SIDE TRANS M-REF9395 N-REF9396 K-REF9397 A-REF9398 LDA-REF9399
                TAU-REF9400 C-REF9401 LDC-REF9402 WORK-REF9403 LWORK-REF9404
                INFO-REF9405))))

(CFFI:DEFCFUN ("dormqr_" %%DORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9408 ':INT32) (N-REF9409 ':INT32)
                              (K-REF9410 ':INT32) (LDA-REF9412 ':INT32)
                              (LDC-REF9415 ':INT32) (LWORK-REF9417 ':INT32)
                              (INFO-REF9418 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9408 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9410 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9412 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9415 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9417 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9418 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9411 A) (TAU-REF9413 TAU)
                                            (C-REF9414 C) (WORK-REF9416 WORK))
      (%%DORMQR SIDE TRANS M-REF9408 N-REF9409 K-REF9410 A-REF9411 LDA-REF9412
                TAU-REF9413 C-REF9414 LDC-REF9415 WORK-REF9416 LWORK-REF9417
                INFO-REF9418))))

(CFFI:DEFCFUN ("dormr2_" %%DORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9421 ':INT32) (N-REF9422 ':INT32)
                              (K-REF9423 ':INT32) (LDA-REF9425 ':INT32)
                              (LDC-REF9428 ':INT32) (INFO-REF9430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9421 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9422 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9423 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9425 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9428 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9430 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9424 A) (TAU-REF9426 TAU)
                                            (C-REF9427 C) (WORK-REF9429 WORK))
      (%%DORMR2 SIDE TRANS M-REF9421 N-REF9422 K-REF9423 A-REF9424 LDA-REF9425
                TAU-REF9426 C-REF9427 LDC-REF9428 WORK-REF9429 INFO-REF9430))))

(CFFI:DEFCFUN ("dormr3_" %%DORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9433 ':INT32) (N-REF9434 ':INT32)
                              (K-REF9435 ':INT32) (L-REF9436 ':INT32)
                              (LDA-REF9438 ':INT32) (LDC-REF9441 ':INT32)
                              (INFO-REF9443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9433 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9434 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9435 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9436 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9441 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9437 A) (TAU-REF9439 TAU)
                                            (C-REF9440 C) (WORK-REF9442 WORK))
      (%%DORMR3 SIDE TRANS M-REF9433 N-REF9434 K-REF9435 L-REF9436 A-REF9437
                LDA-REF9438 TAU-REF9439 C-REF9440 LDC-REF9441 WORK-REF9442
                INFO-REF9443))))

(CFFI:DEFCFUN ("dormrq_" %%DORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9446 ':INT32) (N-REF9447 ':INT32)
                              (K-REF9448 ':INT32) (LDA-REF9450 ':INT32)
                              (LDC-REF9453 ':INT32) (LWORK-REF9455 ':INT32)
                              (INFO-REF9456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9446 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9448 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9450 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9453 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9455 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9449 A) (TAU-REF9451 TAU)
                                            (C-REF9452 C) (WORK-REF9454 WORK))
      (%%DORMRQ SIDE TRANS M-REF9446 N-REF9447 K-REF9448 A-REF9449 LDA-REF9450
                TAU-REF9451 C-REF9452 LDC-REF9453 WORK-REF9454 LWORK-REF9455
                INFO-REF9456))))

(CFFI:DEFCFUN ("dormrz_" %%DORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9459 ':INT32) (N-REF9460 ':INT32)
                              (K-REF9461 ':INT32) (L-REF9462 ':INT32)
                              (LDA-REF9464 ':INT32) (LDC-REF9467 ':INT32)
                              (LWORK-REF9469 ':INT32) (INFO-REF9470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9459 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9460 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9461 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9462 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9464 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9467 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9469 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9463 A) (TAU-REF9465 TAU)
                                            (C-REF9466 C) (WORK-REF9468 WORK))
      (%%DORMRZ SIDE TRANS M-REF9459 N-REF9460 K-REF9461 L-REF9462 A-REF9463
                LDA-REF9464 TAU-REF9465 C-REF9466 LDC-REF9467 WORK-REF9468
                LWORK-REF9469 INFO-REF9470))))

(CFFI:DEFCFUN ("dormtr_" %%DORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DORMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9474 ':INT32) (N-REF9475 ':INT32)
                              (LDA-REF9477 ':INT32) (LDC-REF9480 ':INT32)
                              (LWORK-REF9482 ':INT32) (INFO-REF9483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9474 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9475 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9477 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9480 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9482 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9476 A) (TAU-REF9478 TAU)
                                            (C-REF9479 C) (WORK-REF9481 WORK))
      (%%DORMTR SIDE UPLO TRANS M-REF9474 N-REF9475 A-REF9476 LDA-REF9477
                TAU-REF9478 C-REF9479 LDC-REF9480 WORK-REF9481 LWORK-REF9482
                INFO-REF9483))))

(CFFI:DEFCFUN ("dpbcon_" %%DPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBCON (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9485 ':INT32) (KD-REF9486 ':INT32)
                              (LDAB-REF9488 ':INT32) (ANORM-REF9489 ':DOUBLE)
                              (RCOND-REF9490 ':DOUBLE) (INFO-REF9493 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9486 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9488 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9489 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9490 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9493 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9487 AB) (WORK-REF9491 WORK)
                                            (IWORK-REF9492 IWORK))
      (%%DPBCON UPLO N-REF9485 KD-REF9486 AB-REF9487 LDAB-REF9488 ANORM-REF9489
                RCOND-REF9490 WORK-REF9491 IWORK-REF9492 INFO-REF9493))))

(CFFI:DEFCFUN ("dpbequ_" %%DPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9495 ':INT32) (KD-REF9496 ':INT32)
                              (LDAB-REF9498 ':INT32) (SCOND-REF9500 ':DOUBLE)
                              (AMAX-REF9501 ':DOUBLE) (INFO-REF9502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9495 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9496 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9498 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9500 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9501 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9497 AB) (S-REF9499 S))
      (%%DPBEQU UPLO N-REF9495 KD-REF9496 AB-REF9497 LDAB-REF9498 S-REF9499
                SCOND-REF9500 AMAX-REF9501 INFO-REF9502))))

(CFFI:DEFCFUN ("dpbrfs_" %%DPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9504 ':INT32) (KD-REF9505 ':INT32)
                              (NRHS-REF9506 ':INT32) (LDAB-REF9508 ':INT32)
                              (LDAFB-REF9510 ':INT32) (LDB-REF9512 ':INT32)
                              (LDX-REF9514 ':INT32) (INFO-REF9519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9505 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9506 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9508 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9510 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9512 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9514 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9519 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9507 AB) (AFB-REF9509 AFB)
                                            (B-REF9511 B) (X-REF9513 X)
                                            (FERR-REF9515 FERR)
                                            (BERR-REF9516 BERR)
                                            (WORK-REF9517 WORK)
                                            (IWORK-REF9518 IWORK))
      (%%DPBRFS UPLO N-REF9504 KD-REF9505 NRHS-REF9506 AB-REF9507 LDAB-REF9508
                AFB-REF9509 LDAFB-REF9510 B-REF9511 LDB-REF9512 X-REF9513
                LDX-REF9514 FERR-REF9515 BERR-REF9516 WORK-REF9517
                IWORK-REF9518 INFO-REF9519))))

(CFFI:DEFCFUN ("dpbstf_" %%DPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9521 ':INT32) (KD-REF9522 ':INT32)
                              (LDAB-REF9524 ':INT32) (INFO-REF9525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9522 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9524 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9523 AB))
      (%%DPBSTF UPLO N-REF9521 KD-REF9522 AB-REF9523 LDAB-REF9524
                INFO-REF9525))))

(CFFI:DEFCFUN ("dpbsv_" %%DPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9527 ':INT32) (KD-REF9528 ':INT32)
                              (NRHS-REF9529 ':INT32) (LDAB-REF9531 ':INT32)
                              (LDB-REF9533 ':INT32) (INFO-REF9534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9528 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9529 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9531 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9530 AB) (B-REF9532 B))
      (%%DPBSV UPLO N-REF9527 KD-REF9528 NRHS-REF9529 AB-REF9530 LDAB-REF9531
               B-REF9532 LDB-REF9533 INFO-REF9534))))

(CFFI:DEFCFUN ("dpbsvx_" %%DPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9537 ':INT32) (KD-REF9538 ':INT32)
                              (NRHS-REF9539 ':INT32) (LDAB-REF9541 ':INT32)
                              (LDAFB-REF9543 ':INT32) (LDB-REF9547 ':INT32)
                              (LDX-REF9549 ':INT32) (RCOND-REF9550 ':DOUBLE)
                              (INFO-REF9555 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9538 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9539 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9541 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9543 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9547 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9549 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9550 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9555 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9540 AB) (AFB-REF9542 AFB)
                                            (S-REF9545 S) (B-REF9546 B)
                                            (X-REF9548 X) (FERR-REF9551 FERR)
                                            (BERR-REF9552 BERR)
                                            (WORK-REF9553 WORK)
                                            (IWORK-REF9554 IWORK))
      (%%DPBSVX FACT UPLO N-REF9537 KD-REF9538 NRHS-REF9539 AB-REF9540
                LDAB-REF9541 AFB-REF9542 LDAFB-REF9543 EQUED S-REF9545
                B-REF9546 LDB-REF9547 X-REF9548 LDX-REF9549 RCOND-REF9550
                FERR-REF9551 BERR-REF9552 WORK-REF9553 IWORK-REF9554
                INFO-REF9555))))

(CFFI:DEFCFUN ("dpbtf2_" %%DPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9557 ':INT32) (KD-REF9558 ':INT32)
                              (LDAB-REF9560 ':INT32) (INFO-REF9561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9557 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9558 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9560 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9559 AB))
      (%%DPBTF2 UPLO N-REF9557 KD-REF9558 AB-REF9559 LDAB-REF9560
                INFO-REF9561))))

(CFFI:DEFCFUN ("dpbtrf_" %%DPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9563 ':INT32) (KD-REF9564 ':INT32)
                              (LDAB-REF9566 ':INT32) (INFO-REF9567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9563 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9564 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9566 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9565 AB))
      (%%DPBTRF UPLO N-REF9563 KD-REF9564 AB-REF9565 LDAB-REF9566
                INFO-REF9567))))

(CFFI:DEFCFUN ("dpbtrs_" %%DPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9569 ':INT32) (KD-REF9570 ':INT32)
                              (NRHS-REF9571 ':INT32) (LDAB-REF9573 ':INT32)
                              (LDB-REF9575 ':INT32) (INFO-REF9576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9570 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9571 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9573 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9575 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9576 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9572 AB) (B-REF9574 B))
      (%%DPBTRS UPLO N-REF9569 KD-REF9570 NRHS-REF9571 AB-REF9572 LDAB-REF9573
                B-REF9574 LDB-REF9575 INFO-REF9576))))

(CFFI:DEFCFUN ("dpftrf_" %%DPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9579 ':INT32) (INFO-REF9581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9580 A))
      (%%DPFTRF TRANSR UPLO N-REF9579 A-REF9580 INFO-REF9581))))

(CFFI:DEFCFUN ("dpftri_" %%DPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9584 ':INT32) (INFO-REF9586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9584 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9586 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9585 A))
      (%%DPFTRI TRANSR UPLO N-REF9584 A-REF9585 INFO-REF9586))))

(CFFI:DEFCFUN ("dpftrs_" %%DPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9589 ':INT32) (NRHS-REF9590 ':INT32)
                              (LDB-REF9593 ':INT32) (INFO-REF9594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9590 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9593 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9594 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9591 A) (B-REF9592 B))
      (%%DPFTRS TRANSR UPLO N-REF9589 NRHS-REF9590 A-REF9591 B-REF9592
                LDB-REF9593 INFO-REF9594))))

(CFFI:DEFCFUN ("dpocon_" %%DPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOCON (UPLO N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9596 ':INT32) (LDA-REF9598 ':INT32)
                              (ANORM-REF9599 ':DOUBLE) (RCOND-REF9600 ':DOUBLE)
                              (INFO-REF9603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9599 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9600 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9597 A) (WORK-REF9601 WORK)
                                            (IWORK-REF9602 IWORK))
      (%%DPOCON UPLO N-REF9596 A-REF9597 LDA-REF9598 ANORM-REF9599
                RCOND-REF9600 WORK-REF9601 IWORK-REF9602 INFO-REF9603))))

(CFFI:DEFCFUN ("dpoequ_" %%DPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9604 ':INT32) (LDA-REF9606 ':INT32)
                              (SCOND-REF9608 ':DOUBLE) (AMAX-REF9609 ':DOUBLE)
                              (INFO-REF9610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9606 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9608 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9609 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9605 A) (S-REF9607 S))
      (%%DPOEQU N-REF9604 A-REF9605 LDA-REF9606 S-REF9607 SCOND-REF9608
                AMAX-REF9609 INFO-REF9610))))

(CFFI:DEFCFUN ("dpoequb_" %%DPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9611 ':INT32) (LDA-REF9613 ':INT32)
                              (SCOND-REF9615 ':DOUBLE) (AMAX-REF9616 ':DOUBLE)
                              (INFO-REF9617 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9611 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9613 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9615 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9616 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9617 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9612 A) (S-REF9614 S))
      (%%DPOEQUB N-REF9611 A-REF9612 LDA-REF9613 S-REF9614 SCOND-REF9615
                 AMAX-REF9616 INFO-REF9617))))

(CFFI:DEFCFUN ("dporfs_" %%DPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9619 ':INT32) (NRHS-REF9620 ':INT32)
                              (LDA-REF9622 ':INT32) (LDAF-REF9624 ':INT32)
                              (LDB-REF9626 ':INT32) (LDX-REF9628 ':INT32)
                              (INFO-REF9633 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9619 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9620 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9622 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9624 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9626 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9628 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9633 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9621 A) (AF-REF9623 AF)
                                            (B-REF9625 B) (X-REF9627 X)
                                            (FERR-REF9629 FERR)
                                            (BERR-REF9630 BERR)
                                            (WORK-REF9631 WORK)
                                            (IWORK-REF9632 IWORK))
      (%%DPORFS UPLO N-REF9619 NRHS-REF9620 A-REF9621 LDA-REF9622 AF-REF9623
                LDAF-REF9624 B-REF9625 LDB-REF9626 X-REF9627 LDX-REF9628
                FERR-REF9629 BERR-REF9630 WORK-REF9631 IWORK-REF9632
                INFO-REF9633))))

(CFFI:DEFCFUN ("dporfsx_" %%DPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9636 ':INT32) (NRHS-REF9637 ':INT32)
                              (LDA-REF9639 ':INT32) (LDAF-REF9641 ':INT32)
                              (LDB-REF9644 ':INT32) (LDX-REF9646 ':INT32)
                              (RCOND-REF9647 ':DOUBLE)
                              (N_ERR_BNDS-REF9649 ':INT32)
                              (NPARAMS-REF9652 ':INT32) (INFO-REF9656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9637 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9639 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9641 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9644 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9646 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9647 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9649 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9652 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9638 A) (AF-REF9640 AF)
                                            (S-REF9642 S) (B-REF9643 B)
                                            (X-REF9645 X) (BERR-REF9648 BERR)
                                            (ERR_BNDS_NORM-REF9650
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF9651
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF9653 PARAMS)
                                            (WORK-REF9654 WORK)
                                            (IWORK-REF9655 IWORK))
      (%%DPORFSX UPLO EQUED N-REF9636 NRHS-REF9637 A-REF9638 LDA-REF9639
                 AF-REF9640 LDAF-REF9641 S-REF9642 B-REF9643 LDB-REF9644
                 X-REF9645 LDX-REF9646 RCOND-REF9647 BERR-REF9648
                 N_ERR_BNDS-REF9649 ERR_BNDS_NORM-REF9650 ERR_BNDS_COMP-REF9651
                 NPARAMS-REF9652 PARAMS-REF9653 WORK-REF9654 IWORK-REF9655
                 INFO-REF9656))))

(CFFI:DEFCFUN ("dposv_" %%DPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9658 ':INT32) (NRHS-REF9659 ':INT32)
                              (LDA-REF9661 ':INT32) (LDB-REF9663 ':INT32)
                              (INFO-REF9664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9658 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9659 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9661 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9663 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9660 A) (B-REF9662 B))
      (%%DPOSV UPLO N-REF9658 NRHS-REF9659 A-REF9660 LDA-REF9661 B-REF9662
               LDB-REF9663 INFO-REF9664))))

(CFFI:DEFCFUN ("dposvx_" %%DPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9667 ':INT32) (NRHS-REF9668 ':INT32)
                              (LDA-REF9670 ':INT32) (LDAF-REF9672 ':INT32)
                              (LDB-REF9676 ':INT32) (LDX-REF9678 ':INT32)
                              (RCOND-REF9679 ':DOUBLE) (INFO-REF9684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9667 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9668 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9670 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9672 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9676 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9678 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9679 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9684 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9669 A) (AF-REF9671 AF)
                                            (S-REF9674 S) (B-REF9675 B)
                                            (X-REF9677 X) (FERR-REF9680 FERR)
                                            (BERR-REF9681 BERR)
                                            (WORK-REF9682 WORK)
                                            (IWORK-REF9683 IWORK))
      (%%DPOSVX FACT UPLO N-REF9667 NRHS-REF9668 A-REF9669 LDA-REF9670
                AF-REF9671 LDAF-REF9672 EQUED S-REF9674 B-REF9675 LDB-REF9676
                X-REF9677 LDX-REF9678 RCOND-REF9679 FERR-REF9680 BERR-REF9681
                WORK-REF9682 IWORK-REF9683 INFO-REF9684))))

(CFFI:DEFCFUN ("dposvxx_" %%DPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9687 ':INT32) (NRHS-REF9688 ':INT32)
                              (LDA-REF9690 ':INT32) (LDAF-REF9692 ':INT32)
                              (LDB-REF9696 ':INT32) (LDX-REF9698 ':INT32)
                              (RCOND-REF9699 ':DOUBLE)
                              (RPVGRW-REF9700 ':DOUBLE)
                              (N_ERR_BNDS-REF9702 ':INT32)
                              (NPARAMS-REF9705 ':INT32) (INFO-REF9709 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9688 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9690 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9692 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9696 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9698 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9699 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF9700 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9702 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9705 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9709 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9689 A) (AF-REF9691 AF)
                                            (S-REF9694 S) (B-REF9695 B)
                                            (X-REF9697 X) (BERR-REF9701 BERR)
                                            (ERR_BNDS_NORM-REF9703
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF9704
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF9706 PARAMS)
                                            (WORK-REF9707 WORK)
                                            (IWORK-REF9708 IWORK))
      (%%DPOSVXX FACT UPLO N-REF9687 NRHS-REF9688 A-REF9689 LDA-REF9690
                 AF-REF9691 LDAF-REF9692 EQUED S-REF9694 B-REF9695 LDB-REF9696
                 X-REF9697 LDX-REF9698 RCOND-REF9699 RPVGRW-REF9700
                 BERR-REF9701 N_ERR_BNDS-REF9702 ERR_BNDS_NORM-REF9703
                 ERR_BNDS_COMP-REF9704 NPARAMS-REF9705 PARAMS-REF9706
                 WORK-REF9707 IWORK-REF9708 INFO-REF9709))))

(CFFI:DEFCFUN ("dpotf2_" %%DPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9711 ':INT32) (LDA-REF9713 ':INT32)
                              (INFO-REF9714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9711 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9713 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9712 A))
      (%%DPOTF2 UPLO N-REF9711 A-REF9712 LDA-REF9713 INFO-REF9714))))

(CFFI:DEFCFUN ("dpotrf_" %%DPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9716 ':INT32) (LDA-REF9718 ':INT32)
                              (INFO-REF9719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9718 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9717 A))
      (%%DPOTRF UPLO N-REF9716 A-REF9717 LDA-REF9718 INFO-REF9719))))

(CFFI:DEFCFUN ("dpotrf2_" %%DPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9721 ':INT32) (LDA-REF9723 ':INT32)
                              (INFO-REF9724 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9723 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9724 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9722 A))
      (%%DPOTRF2 UPLO N-REF9721 A-REF9722 LDA-REF9723 INFO-REF9724))))

(CFFI:DEFCFUN ("dpotri_" %%DPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9726 ':INT32) (LDA-REF9728 ':INT32)
                              (INFO-REF9729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9728 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9727 A))
      (%%DPOTRI UPLO N-REF9726 A-REF9727 LDA-REF9728 INFO-REF9729))))

(CFFI:DEFCFUN ("dpotrs_" %%DPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9731 ':INT32) (NRHS-REF9732 ':INT32)
                              (LDA-REF9734 ':INT32) (LDB-REF9736 ':INT32)
                              (INFO-REF9737 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9732 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9734 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9736 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9737 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9733 A) (B-REF9735 B))
      (%%DPOTRS UPLO N-REF9731 NRHS-REF9732 A-REF9733 LDA-REF9734 B-REF9735
                LDB-REF9736 INFO-REF9737))))

(CFFI:DEFCFUN ("dppcon_" %%DPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9739 ':INT32) (ANORM-REF9741 ':DOUBLE)
                              (RCOND-REF9742 ':DOUBLE) (INFO-REF9745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9741 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9742 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9740 AP) (WORK-REF9743 WORK)
                                            (IWORK-REF9744 IWORK))
      (%%DPPCON UPLO N-REF9739 AP-REF9740 ANORM-REF9741 RCOND-REF9742
                WORK-REF9743 IWORK-REF9744 INFO-REF9745))))

(CFFI:DEFCFUN ("dppequ_" %%DPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9747 ':INT32) (SCOND-REF9750 ':DOUBLE)
                              (AMAX-REF9751 ':DOUBLE) (INFO-REF9752 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9747 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9750 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9751 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9752 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9748 AP) (S-REF9749 S))
      (%%DPPEQU UPLO N-REF9747 AP-REF9748 S-REF9749 SCOND-REF9750 AMAX-REF9751
                INFO-REF9752))))

(CFFI:DEFCFUN ("dpprfs_" %%DPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9754 ':INT32) (NRHS-REF9755 ':INT32)
                              (LDB-REF9759 ':INT32) (LDX-REF9761 ':INT32)
                              (INFO-REF9766 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9754 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9755 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9759 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9761 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9766 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9756 AP) (AFP-REF9757 AFP)
                                            (B-REF9758 B) (X-REF9760 X)
                                            (FERR-REF9762 FERR)
                                            (BERR-REF9763 BERR)
                                            (WORK-REF9764 WORK)
                                            (IWORK-REF9765 IWORK))
      (%%DPPRFS UPLO N-REF9754 NRHS-REF9755 AP-REF9756 AFP-REF9757 B-REF9758
                LDB-REF9759 X-REF9760 LDX-REF9761 FERR-REF9762 BERR-REF9763
                WORK-REF9764 IWORK-REF9765 INFO-REF9766))))

(CFFI:DEFCFUN ("dppsv_" %%DPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9768 ':INT32) (NRHS-REF9769 ':INT32)
                              (LDB-REF9772 ':INT32) (INFO-REF9773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9769 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9772 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9770 AP) (B-REF9771 B))
      (%%DPPSV UPLO N-REF9768 NRHS-REF9769 AP-REF9770 B-REF9771 LDB-REF9772
               INFO-REF9773))))

(CFFI:DEFCFUN ("dppsvx_" %%DPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9776 ':INT32) (NRHS-REF9777 ':INT32)
                              (LDB-REF9783 ':INT32) (LDX-REF9785 ':INT32)
                              (RCOND-REF9786 ':DOUBLE) (INFO-REF9791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9776 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9777 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9783 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9785 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9786 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9791 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9778 AP) (AFP-REF9779 AFP)
                                            (S-REF9781 S) (B-REF9782 B)
                                            (X-REF9784 X) (FERR-REF9787 FERR)
                                            (BERR-REF9788 BERR)
                                            (WORK-REF9789 WORK)
                                            (IWORK-REF9790 IWORK))
      (%%DPPSVX FACT UPLO N-REF9776 NRHS-REF9777 AP-REF9778 AFP-REF9779 EQUED
                S-REF9781 B-REF9782 LDB-REF9783 X-REF9784 LDX-REF9785
                RCOND-REF9786 FERR-REF9787 BERR-REF9788 WORK-REF9789
                IWORK-REF9790 INFO-REF9791))))

(CFFI:DEFCFUN ("dpptrf_" %%DPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9793 ':INT32) (INFO-REF9795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9793 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9794 AP))
      (%%DPPTRF UPLO N-REF9793 AP-REF9794 INFO-REF9795))))

(CFFI:DEFCFUN ("dpptri_" %%DPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9797 ':INT32) (INFO-REF9799 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9799 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9798 AP))
      (%%DPPTRI UPLO N-REF9797 AP-REF9798 INFO-REF9799))))

(CFFI:DEFCFUN ("dpptrs_" %%DPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9801 ':INT32) (NRHS-REF9802 ':INT32)
                              (LDB-REF9805 ':INT32) (INFO-REF9806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9801 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9802 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9805 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9803 AP) (B-REF9804 B))
      (%%DPPTRS UPLO N-REF9801 NRHS-REF9802 AP-REF9803 B-REF9804 LDB-REF9805
                INFO-REF9806))))

(CFFI:DEFCFUN ("dpstf2_" %%DPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9808 ':INT32) (LDA-REF9810 ':INT32)
                              (RANK-REF9812 ':INT32) (TOL-REF9813 ':DOUBLE)
                              (INFO-REF9815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9812 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9813 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9809 A) (PIV-REF9811 PIV)
                                            (WORK-REF9814 WORK))
      (%%DPSTF2 UPLO N-REF9808 A-REF9809 LDA-REF9810 PIV-REF9811 RANK-REF9812
                TOL-REF9813 WORK-REF9814 INFO-REF9815))))

(CFFI:DEFCFUN ("dpstrf_" %%DPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9817 ':INT32) (LDA-REF9819 ':INT32)
                              (RANK-REF9821 ':INT32) (TOL-REF9822 ':DOUBLE)
                              (INFO-REF9824 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9819 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9821 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9822 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9824 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9818 A) (PIV-REF9820 PIV)
                                            (WORK-REF9823 WORK))
      (%%DPSTRF UPLO N-REF9817 A-REF9818 LDA-REF9819 PIV-REF9820 RANK-REF9821
                TOL-REF9822 WORK-REF9823 INFO-REF9824))))

(CFFI:DEFCFUN ("dptcon_" %%DPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTCON (N D E ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9825 ':INT32) (ANORM-REF9828 ':DOUBLE)
                              (RCOND-REF9829 ':DOUBLE) (INFO-REF9831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9828 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9829 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9826 D) (E-REF9827 E)
                                            (WORK-REF9830 WORK))
      (%%DPTCON N-REF9825 D-REF9826 E-REF9827 ANORM-REF9828 RCOND-REF9829
                WORK-REF9830 INFO-REF9831))))

(CFFI:DEFCFUN ("dpteqr_" %%DPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9833 ':INT32) (LDZ-REF9837 ':INT32)
                              (INFO-REF9839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9837 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9834 D) (E-REF9835 E)
                                            (Z-REF9836 Z) (WORK-REF9838 WORK))
      (%%DPTEQR COMPZ N-REF9833 D-REF9834 E-REF9835 Z-REF9836 LDZ-REF9837
                WORK-REF9838 INFO-REF9839))))

(CFFI:DEFCFUN ("dptrfs_" %%DPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTRFS (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTRFS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9840 ':INT32) (NRHS-REF9841 ':INT32)
                              (LDB-REF9847 ':INT32) (LDX-REF9849 ':INT32)
                              (INFO-REF9853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9841 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9847 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9849 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9842 D) (E-REF9843 E)
                                            (DF-REF9844 DF) (EF-REF9845 EF)
                                            (B-REF9846 B) (X-REF9848 X)
                                            (FERR-REF9850 FERR)
                                            (BERR-REF9851 BERR)
                                            (WORK-REF9852 WORK))
      (%%DPTRFS N-REF9840 NRHS-REF9841 D-REF9842 E-REF9843 DF-REF9844
                EF-REF9845 B-REF9846 LDB-REF9847 X-REF9848 LDX-REF9849
                FERR-REF9850 BERR-REF9851 WORK-REF9852 INFO-REF9853))))

(CFFI:DEFCFUN ("dptsv_" %%DPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9854 ':INT32) (NRHS-REF9855 ':INT32)
                              (LDB-REF9859 ':INT32) (INFO-REF9860 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9854 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9855 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9859 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9860 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9856 D) (E-REF9857 E)
                                            (B-REF9858 B))
      (%%DPTSV N-REF9854 NRHS-REF9855 D-REF9856 E-REF9857 B-REF9858 LDB-REF9859
               INFO-REF9860))))

(CFFI:DEFCFUN ("dptsvx_" %%DPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9862 ':INT32) (NRHS-REF9863 ':INT32)
                              (LDB-REF9869 ':INT32) (LDX-REF9871 ':INT32)
                              (RCOND-REF9872 ':DOUBLE) (INFO-REF9876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9862 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9863 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9869 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9871 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9872 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9864 D) (E-REF9865 E)
                                            (DF-REF9866 DF) (EF-REF9867 EF)
                                            (B-REF9868 B) (X-REF9870 X)
                                            (FERR-REF9873 FERR)
                                            (BERR-REF9874 BERR)
                                            (WORK-REF9875 WORK))
      (%%DPTSVX FACT N-REF9862 NRHS-REF9863 D-REF9864 E-REF9865 DF-REF9866
                EF-REF9867 B-REF9868 LDB-REF9869 X-REF9870 LDX-REF9871
                RCOND-REF9872 FERR-REF9873 BERR-REF9874 WORK-REF9875
                INFO-REF9876))))

(CFFI:DEFCFUN ("dpttrf_" %%DPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9877 ':INT32) (INFO-REF9880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9880 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9878 D) (E-REF9879 E))
      (%%DPTTRF N-REF9877 D-REF9878 E-REF9879 INFO-REF9880))))

(CFFI:DEFCFUN ("dpttrs_" %%DPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9881 ':INT32) (NRHS-REF9882 ':INT32)
                              (LDB-REF9886 ':INT32) (INFO-REF9887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9882 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9886 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9883 D) (E-REF9884 E)
                                            (B-REF9885 B))
      (%%DPTTRS N-REF9881 NRHS-REF9882 D-REF9883 E-REF9884 B-REF9885
                LDB-REF9886 INFO-REF9887))))

(CFFI:DEFCFUN ("dptts2_" %%DPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9888 ':INT32) (NRHS-REF9889 ':INT32)
                              (LDB-REF9893 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9888 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9889 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9893 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9890 D) (E-REF9891 E)
                                            (B-REF9892 B))
      (%%DPTTS2 N-REF9888 NRHS-REF9889 D-REF9890 E-REF9891 B-REF9892
                LDB-REF9893))))

(CFFI:DEFCFUN ("drscl_" %%DRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9894 ':INT32) (SA-REF9895 ':DOUBLE)
                              (INCX-REF9897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9894 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF9895 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9897 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF9896 SX))
      (%%DRSCL N-REF9894 SA-REF9895 SX-REF9896 INCX-REF9897))))

(CFFI:DEFCFUN ("dsb2st_kernels_" %%DSB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DSB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF9899 ':INT32) (TTYPE-REF9900 ':INT32)
                              (ST-REF9901 ':INT32) (ED-REF9902 ':INT32)
                              (SWEEP-REF9903 ':INT32) (N-REF9904 ':INT32)
                              (NB-REF9905 ':INT32) (IB-REF9906 ':INT32)
                              (LDA-REF9908 ':INT32) (LDVT-REF9911 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9899 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF9900 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF9901 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF9902 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF9903 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9904 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9905 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF9906 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9908 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF9911 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9907 A) (V-REF9909 V)
                                            (TAU-REF9910 TAU)
                                            (WORK-REF9912 WORK))
      (%%DSB2ST_KERNELS UPLO WANTZ-REF9899 TTYPE-REF9900 ST-REF9901 ED-REF9902
                        SWEEP-REF9903 N-REF9904 NB-REF9905 IB-REF9906 A-REF9907
                        LDA-REF9908 V-REF9909 TAU-REF9910 LDVT-REF9911
                        WORK-REF9912))))

(CFFI:DEFCFUN ("dsbev_" %%DSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9915 ':INT32) (KD-REF9916 ':INT32)
                              (LDAB-REF9918 ':INT32) (LDZ-REF9921 ':INT32)
                              (INFO-REF9923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9916 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9918 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9921 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9923 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9917 AB) (W-REF9919 W)
                                            (Z-REF9920 Z) (WORK-REF9922 WORK))
      (%%DSBEV JOBZ UPLO N-REF9915 KD-REF9916 AB-REF9917 LDAB-REF9918 W-REF9919
               Z-REF9920 LDZ-REF9921 WORK-REF9922 INFO-REF9923))))

(CFFI:DEFCFUN ("dsbev_2stage_" %%DSBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9926 ':INT32) (KD-REF9927 ':INT32)
                              (LDAB-REF9929 ':INT32) (LDZ-REF9932 ':INT32)
                              (LWORK-REF9934 ':INT32) (INFO-REF9935 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9927 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9929 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9932 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9934 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9935 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9928 AB) (W-REF9930 W)
                                            (Z-REF9931 Z) (WORK-REF9933 WORK))
      (%%DSBEV_2STAGE JOBZ UPLO N-REF9926 KD-REF9927 AB-REF9928 LDAB-REF9929
                      W-REF9930 Z-REF9931 LDZ-REF9932 WORK-REF9933
                      LWORK-REF9934 INFO-REF9935))))

(CFFI:DEFCFUN ("dsbevd_" %%DSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9938 ':INT32) (KD-REF9939 ':INT32)
                              (LDAB-REF9941 ':INT32) (LDZ-REF9944 ':INT32)
                              (LWORK-REF9946 ':INT32) (LIWORK-REF9948 ':INT32)
                              (INFO-REF9949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9938 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9939 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9941 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9944 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9946 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9948 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9940 AB) (W-REF9942 W)
                                            (Z-REF9943 Z) (WORK-REF9945 WORK)
                                            (IWORK-REF9947 IWORK))
      (%%DSBEVD JOBZ UPLO N-REF9938 KD-REF9939 AB-REF9940 LDAB-REF9941
                W-REF9942 Z-REF9943 LDZ-REF9944 WORK-REF9945 LWORK-REF9946
                IWORK-REF9947 LIWORK-REF9948 INFO-REF9949))))

(CFFI:DEFCFUN ("dsbevd_2stage_" %%DSBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9952 ':INT32) (KD-REF9953 ':INT32)
                              (LDAB-REF9955 ':INT32) (LDZ-REF9958 ':INT32)
                              (LWORK-REF9960 ':INT32) (LIWORK-REF9962 ':INT32)
                              (INFO-REF9963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9953 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9955 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9958 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9960 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9962 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9963 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9954 AB) (W-REF9956 W)
                                            (Z-REF9957 Z) (WORK-REF9959 WORK)
                                            (IWORK-REF9961 IWORK))
      (%%DSBEVD_2STAGE JOBZ UPLO N-REF9952 KD-REF9953 AB-REF9954 LDAB-REF9955
                       W-REF9956 Z-REF9957 LDZ-REF9958 WORK-REF9959
                       LWORK-REF9960 IWORK-REF9961 LIWORK-REF9962
                       INFO-REF9963))))

(CFFI:DEFCFUN ("dsbevx_" %%DSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9967 ':INT32) (KD-REF9968 ':INT32)
                              (LDAB-REF9970 ':INT32) (LDQ-REF9972 ':INT32)
                              (VL-REF9973 ':DOUBLE) (VU-REF9974 ':DOUBLE)
                              (IL-REF9975 ':INT32) (IU-REF9976 ':INT32)
                              (ABSTOL-REF9977 ':DOUBLE) (M-REF9978 ':INT32)
                              (LDZ-REF9981 ':INT32) (INFO-REF9985 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9968 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9970 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9972 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9973 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9974 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9975 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9976 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9977 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9978 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9981 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9985 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9969 AB) (Q-REF9971 Q)
                                            (W-REF9979 W) (Z-REF9980 Z)
                                            (WORK-REF9982 WORK)
                                            (IWORK-REF9983 IWORK)
                                            (IFAIL-REF9984 IFAIL))
      (%%DSBEVX JOBZ RANGE UPLO N-REF9967 KD-REF9968 AB-REF9969 LDAB-REF9970
                Q-REF9971 LDQ-REF9972 VL-REF9973 VU-REF9974 IL-REF9975
                IU-REF9976 ABSTOL-REF9977 M-REF9978 W-REF9979 Z-REF9980
                LDZ-REF9981 WORK-REF9982 IWORK-REF9983 IFAIL-REF9984
                INFO-REF9985))))

(CFFI:DEFCFUN ("dsbevx_2stage_" %%DSBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9989 ':INT32) (KD-REF9990 ':INT32)
                              (LDAB-REF9992 ':INT32) (LDQ-REF9994 ':INT32)
                              (VL-REF9995 ':DOUBLE) (VU-REF9996 ':DOUBLE)
                              (IL-REF9997 ':INT32) (IU-REF9998 ':INT32)
                              (ABSTOL-REF9999 ':DOUBLE) (M-REF10000 ':INT32)
                              (LDZ-REF10003 ':INT32) (LWORK-REF10005 ':INT32)
                              (INFO-REF10008 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9990 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9992 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9994 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9995 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9996 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9997 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9998 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9999 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10000 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10003 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10005 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10008 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9991 AB) (Q-REF9993 Q)
                                            (W-REF10001 W) (Z-REF10002 Z)
                                            (WORK-REF10004 WORK)
                                            (IWORK-REF10006 IWORK)
                                            (IFAIL-REF10007 IFAIL))
      (%%DSBEVX_2STAGE JOBZ RANGE UPLO N-REF9989 KD-REF9990 AB-REF9991
                       LDAB-REF9992 Q-REF9993 LDQ-REF9994 VL-REF9995 VU-REF9996
                       IL-REF9997 IU-REF9998 ABSTOL-REF9999 M-REF10000
                       W-REF10001 Z-REF10002 LDZ-REF10003 WORK-REF10004
                       LWORK-REF10005 IWORK-REF10006 IFAIL-REF10007
                       INFO-REF10008))))

(CFFI:DEFCFUN ("dsbgst_" %%DSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGST (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10011 ':INT32) (KA-REF10012 ':INT32)
                              (KB-REF10013 ':INT32) (LDAB-REF10015 ':INT32)
                              (LDBB-REF10017 ':INT32) (LDX-REF10019 ':INT32)
                              (INFO-REF10021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10011 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10012 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10013 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10015 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10017 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10019 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10021 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10014 AB) (BB-REF10016 BB)
                                            (X-REF10018 X) (WORK-REF10020 WORK))
      (%%DSBGST VECT UPLO N-REF10011 KA-REF10012 KB-REF10013 AB-REF10014
                LDAB-REF10015 BB-REF10016 LDBB-REF10017 X-REF10018 LDX-REF10019
                WORK-REF10020 INFO-REF10021))))

(CFFI:DEFCFUN ("dsbgv_" %%DSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGV (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10024 ':INT32) (KA-REF10025 ':INT32)
                              (KB-REF10026 ':INT32) (LDAB-REF10028 ':INT32)
                              (LDBB-REF10030 ':INT32) (LDZ-REF10033 ':INT32)
                              (INFO-REF10035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10025 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10026 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10028 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10030 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10033 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10035 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10027 AB) (BB-REF10029 BB)
                                            (W-REF10031 W) (Z-REF10032 Z)
                                            (WORK-REF10034 WORK))
      (%%DSBGV JOBZ UPLO N-REF10024 KA-REF10025 KB-REF10026 AB-REF10027
               LDAB-REF10028 BB-REF10029 LDBB-REF10030 W-REF10031 Z-REF10032
               LDZ-REF10033 WORK-REF10034 INFO-REF10035))))

(CFFI:DEFCFUN ("dsbgvd_" %%DSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK
                    LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10038 ':INT32) (KA-REF10039 ':INT32)
                              (KB-REF10040 ':INT32) (LDAB-REF10042 ':INT32)
                              (LDBB-REF10044 ':INT32) (LDZ-REF10047 ':INT32)
                              (LWORK-REF10049 ':INT32)
                              (LIWORK-REF10051 ':INT32) (INFO-REF10052 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10039 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10040 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10042 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10044 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10047 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10049 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10051 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10052 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10041 AB) (BB-REF10043 BB)
                                            (W-REF10045 W) (Z-REF10046 Z)
                                            (WORK-REF10048 WORK)
                                            (IWORK-REF10050 IWORK))
      (%%DSBGVD JOBZ UPLO N-REF10038 KA-REF10039 KB-REF10040 AB-REF10041
                LDAB-REF10042 BB-REF10043 LDBB-REF10044 W-REF10045 Z-REF10046
                LDZ-REF10047 WORK-REF10048 LWORK-REF10049 IWORK-REF10050
                LIWORK-REF10051 INFO-REF10052))))

(CFFI:DEFCFUN ("dsbgvx_" %%DSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10056 ':INT32) (KA-REF10057 ':INT32)
                              (KB-REF10058 ':INT32) (LDAB-REF10060 ':INT32)
                              (LDBB-REF10062 ':INT32) (LDQ-REF10064 ':INT32)
                              (VL-REF10065 ':DOUBLE) (VU-REF10066 ':DOUBLE)
                              (IL-REF10067 ':INT32) (IU-REF10068 ':INT32)
                              (ABSTOL-REF10069 ':DOUBLE) (M-REF10070 ':INT32)
                              (LDZ-REF10073 ':INT32) (INFO-REF10077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10057 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10058 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10060 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10062 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10064 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10065 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10066 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10067 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10068 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10069 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10070 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10073 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10059 AB) (BB-REF10061 BB)
                                            (Q-REF10063 Q) (W-REF10071 W)
                                            (Z-REF10072 Z) (WORK-REF10074 WORK)
                                            (IWORK-REF10075 IWORK)
                                            (IFAIL-REF10076 IFAIL))
      (%%DSBGVX JOBZ RANGE UPLO N-REF10056 KA-REF10057 KB-REF10058 AB-REF10059
                LDAB-REF10060 BB-REF10061 LDBB-REF10062 Q-REF10063 LDQ-REF10064
                VL-REF10065 VU-REF10066 IL-REF10067 IU-REF10068 ABSTOL-REF10069
                M-REF10070 W-REF10071 Z-REF10072 LDZ-REF10073 WORK-REF10074
                IWORK-REF10075 IFAIL-REF10076 INFO-REF10077))))

(CFFI:DEFCFUN ("dsbtrd_" %%DSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10080 ':INT32) (KD-REF10081 ':INT32)
                              (LDAB-REF10083 ':INT32) (LDQ-REF10087 ':INT32)
                              (INFO-REF10089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10081 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10083 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10087 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10082 AB) (D-REF10084 D)
                                            (E-REF10085 E) (Q-REF10086 Q)
                                            (WORK-REF10088 WORK))
      (%%DSBTRD VECT UPLO N-REF10080 KD-REF10081 AB-REF10082 LDAB-REF10083
                D-REF10084 E-REF10085 Q-REF10086 LDQ-REF10087 WORK-REF10088
                INFO-REF10089))))

(CFFI:DEFCFUN ("dsfrk_" %%DSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %DSFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10093 ':INT32) (K-REF10094 ':INT32)
                              (ALPHA-REF10095 ':DOUBLE) (LDA-REF10097 ':INT32)
                              (BETA-REF10098 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10094 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10095 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10097 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10098 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10096 A) (C-REF10099 C))
      (%%DSFRK TRANSR UPLO TRANS N-REF10093 K-REF10094 ALPHA-REF10095
               A-REF10096 LDA-REF10097 BETA-REF10098 C-REF10099))))

(CFFI:DEFCFUN ("dsgesv_" %%DSGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSGESV (N NRHS A LDA IPIV B LDB X LDX WORK SWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10100 ':INT32) (NRHS-REF10101 ':INT32)
                              (LDA-REF10103 ':INT32) (LDB-REF10106 ':INT32)
                              (LDX-REF10108 ':INT32) (ITER-REF10111 ':INT32)
                              (INFO-REF10112 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10101 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10106 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10108 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10111 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10112 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10102 A) (IPIV-REF10104 IPIV)
                                            (B-REF10105 B) (X-REF10107 X)
                                            (WORK-REF10109 WORK)
                                            (SWORK-REF10110 SWORK))
      (%%DSGESV N-REF10100 NRHS-REF10101 A-REF10102 LDA-REF10103 IPIV-REF10104
                B-REF10105 LDB-REF10106 X-REF10107 LDX-REF10108 WORK-REF10109
                SWORK-REF10110 ITER-REF10111 INFO-REF10112))))

(CFFI:DEFCFUN ("dspcon_" %%DSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10114 ':INT32) (ANORM-REF10117 ':DOUBLE)
                              (RCOND-REF10118 ':DOUBLE) (INFO-REF10121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10117 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10118 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10121 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10115 AP)
                                            (IPIV-REF10116 IPIV)
                                            (WORK-REF10119 WORK)
                                            (IWORK-REF10120 IWORK))
      (%%DSPCON UPLO N-REF10114 AP-REF10115 IPIV-REF10116 ANORM-REF10117
                RCOND-REF10118 WORK-REF10119 IWORK-REF10120 INFO-REF10121))))

(CFFI:DEFCFUN ("dspev_" %%DSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEV (JOBZ UPLO N AP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10124 ':INT32) (LDZ-REF10128 ':INT32)
                              (INFO-REF10130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10128 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10125 AP) (W-REF10126 W)
                                            (Z-REF10127 Z) (WORK-REF10129 WORK))
      (%%DSPEV JOBZ UPLO N-REF10124 AP-REF10125 W-REF10126 Z-REF10127
               LDZ-REF10128 WORK-REF10129 INFO-REF10130))))

(CFFI:DEFCFUN ("dspevd_" %%DSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10133 ':INT32) (LDZ-REF10137 ':INT32)
                              (LWORK-REF10139 ':INT32)
                              (LIWORK-REF10141 ':INT32) (INFO-REF10142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10133 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10137 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10139 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10141 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10134 AP) (W-REF10135 W)
                                            (Z-REF10136 Z) (WORK-REF10138 WORK)
                                            (IWORK-REF10140 IWORK))
      (%%DSPEVD JOBZ UPLO N-REF10133 AP-REF10134 W-REF10135 Z-REF10136
                LDZ-REF10137 WORK-REF10138 LWORK-REF10139 IWORK-REF10140
                LIWORK-REF10141 INFO-REF10142))))

(CFFI:DEFCFUN ("dspevx_" %%DSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10146 ':INT32) (VL-REF10148 ':DOUBLE)
                              (VU-REF10149 ':DOUBLE) (IL-REF10150 ':INT32)
                              (IU-REF10151 ':INT32) (ABSTOL-REF10152 ':DOUBLE)
                              (M-REF10153 ':INT32) (LDZ-REF10156 ':INT32)
                              (INFO-REF10160 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10148 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10149 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10150 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10151 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10152 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10153 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10156 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10160 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10147 AP) (W-REF10154 W)
                                            (Z-REF10155 Z) (WORK-REF10157 WORK)
                                            (IWORK-REF10158 IWORK)
                                            (IFAIL-REF10159 IFAIL))
      (%%DSPEVX JOBZ RANGE UPLO N-REF10146 AP-REF10147 VL-REF10148 VU-REF10149
                IL-REF10150 IU-REF10151 ABSTOL-REF10152 M-REF10153 W-REF10154
                Z-REF10155 LDZ-REF10156 WORK-REF10157 IWORK-REF10158
                IFAIL-REF10159 INFO-REF10160))))

(CFFI:DEFCFUN ("dspgst_" %%DSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10161 ':INT32) (N-REF10163 ':INT32)
                              (INFO-REF10166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10161 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10163 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10164 AP) (BP-REF10165 BP))
      (%%DSPGST ITYPE-REF10161 UPLO N-REF10163 AP-REF10164 BP-REF10165
                INFO-REF10166))))

(CFFI:DEFCFUN ("dspgv_" %%DSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10167 ':INT32) (N-REF10170 ':INT32)
                              (LDZ-REF10175 ':INT32) (INFO-REF10177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10167 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10175 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10177 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10171 AP) (BP-REF10172 BP)
                                            (W-REF10173 W) (Z-REF10174 Z)
                                            (WORK-REF10176 WORK))
      (%%DSPGV ITYPE-REF10167 JOBZ UPLO N-REF10170 AP-REF10171 BP-REF10172
               W-REF10173 Z-REF10174 LDZ-REF10175 WORK-REF10176
               INFO-REF10177))))

(CFFI:DEFCFUN ("dspgvd_" %%DSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10178 ':INT32) (N-REF10181 ':INT32)
                              (LDZ-REF10186 ':INT32) (LWORK-REF10188 ':INT32)
                              (LIWORK-REF10190 ':INT32) (INFO-REF10191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10178 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10181 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10186 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10188 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10190 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10182 AP) (BP-REF10183 BP)
                                            (W-REF10184 W) (Z-REF10185 Z)
                                            (WORK-REF10187 WORK)
                                            (IWORK-REF10189 IWORK))
      (%%DSPGVD ITYPE-REF10178 JOBZ UPLO N-REF10181 AP-REF10182 BP-REF10183
                W-REF10184 Z-REF10185 LDZ-REF10186 WORK-REF10187 LWORK-REF10188
                IWORK-REF10189 LIWORK-REF10190 INFO-REF10191))))

(CFFI:DEFCFUN ("dspgvx_" %%DSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10192 ':INT32) (N-REF10196 ':INT32)
                              (VL-REF10199 ':DOUBLE) (VU-REF10200 ':DOUBLE)
                              (IL-REF10201 ':INT32) (IU-REF10202 ':INT32)
                              (ABSTOL-REF10203 ':DOUBLE) (M-REF10204 ':INT32)
                              (LDZ-REF10207 ':INT32) (INFO-REF10211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10192 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10196 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10199 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10200 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10201 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10202 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10203 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10204 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10207 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10197 AP) (BP-REF10198 BP)
                                            (W-REF10205 W) (Z-REF10206 Z)
                                            (WORK-REF10208 WORK)
                                            (IWORK-REF10209 IWORK)
                                            (IFAIL-REF10210 IFAIL))
      (%%DSPGVX ITYPE-REF10192 JOBZ RANGE UPLO N-REF10196 AP-REF10197
                BP-REF10198 VL-REF10199 VU-REF10200 IL-REF10201 IU-REF10202
                ABSTOL-REF10203 M-REF10204 W-REF10205 Z-REF10206 LDZ-REF10207
                WORK-REF10208 IWORK-REF10209 IFAIL-REF10210 INFO-REF10211))))

(CFFI:DEFCFUN ("dsposv_" %%DSPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPOSV (UPLO N NRHS A LDA B LDB X LDX WORK SWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10213 ':INT32) (NRHS-REF10214 ':INT32)
                              (LDA-REF10216 ':INT32) (LDB-REF10218 ':INT32)
                              (LDX-REF10220 ':INT32) (ITER-REF10223 ':INT32)
                              (INFO-REF10224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10214 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10216 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10218 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10220 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10223 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10215 A) (B-REF10217 B)
                                            (X-REF10219 X) (WORK-REF10221 WORK)
                                            (SWORK-REF10222 SWORK))
      (%%DSPOSV UPLO N-REF10213 NRHS-REF10214 A-REF10215 LDA-REF10216
                B-REF10217 LDB-REF10218 X-REF10219 LDX-REF10220 WORK-REF10221
                SWORK-REF10222 ITER-REF10223 INFO-REF10224))))

(CFFI:DEFCFUN ("dsprfs_" %%DSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10226 ':INT32) (NRHS-REF10227 ':INT32)
                              (LDB-REF10232 ':INT32) (LDX-REF10234 ':INT32)
                              (INFO-REF10239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10227 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10232 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10234 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10228 AP) (AFP-REF10229 AFP)
                                            (IPIV-REF10230 IPIV) (B-REF10231 B)
                                            (X-REF10233 X) (FERR-REF10235 FERR)
                                            (BERR-REF10236 BERR)
                                            (WORK-REF10237 WORK)
                                            (IWORK-REF10238 IWORK))
      (%%DSPRFS UPLO N-REF10226 NRHS-REF10227 AP-REF10228 AFP-REF10229
                IPIV-REF10230 B-REF10231 LDB-REF10232 X-REF10233 LDX-REF10234
                FERR-REF10235 BERR-REF10236 WORK-REF10237 IWORK-REF10238
                INFO-REF10239))))

(CFFI:DEFCFUN ("dspsv_" %%DSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10241 ':INT32) (NRHS-REF10242 ':INT32)
                              (LDB-REF10246 ':INT32) (INFO-REF10247 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10241 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10242 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10246 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10247 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10243 AP)
                                            (IPIV-REF10244 IPIV) (B-REF10245 B))
      (%%DSPSV UPLO N-REF10241 NRHS-REF10242 AP-REF10243 IPIV-REF10244
               B-REF10245 LDB-REF10246 INFO-REF10247))))

(CFFI:DEFCFUN ("dspsvx_" %%DSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10250 ':INT32) (NRHS-REF10251 ':INT32)
                              (LDB-REF10256 ':INT32) (LDX-REF10258 ':INT32)
                              (RCOND-REF10259 ':DOUBLE) (INFO-REF10264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10250 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10251 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10256 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10258 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10259 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10252 AP) (AFP-REF10253 AFP)
                                            (IPIV-REF10254 IPIV) (B-REF10255 B)
                                            (X-REF10257 X) (FERR-REF10260 FERR)
                                            (BERR-REF10261 BERR)
                                            (WORK-REF10262 WORK)
                                            (IWORK-REF10263 IWORK))
      (%%DSPSVX FACT UPLO N-REF10250 NRHS-REF10251 AP-REF10252 AFP-REF10253
                IPIV-REF10254 B-REF10255 LDB-REF10256 X-REF10257 LDX-REF10258
                RCOND-REF10259 FERR-REF10260 BERR-REF10261 WORK-REF10262
                IWORK-REF10263 INFO-REF10264))))

(CFFI:DEFCFUN ("dsptrd_" %%DSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10266 ':INT32) (INFO-REF10271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10267 AP) (D-REF10268 D)
                                            (E-REF10269 E) (TAU-REF10270 TAU))
      (%%DSPTRD UPLO N-REF10266 AP-REF10267 D-REF10268 E-REF10269 TAU-REF10270
                INFO-REF10271))))

(CFFI:DEFCFUN ("dsptrf_" %%DSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10273 ':INT32) (INFO-REF10276 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10276 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10274 AP)
                                            (IPIV-REF10275 IPIV))
      (%%DSPTRF UPLO N-REF10273 AP-REF10274 IPIV-REF10275 INFO-REF10276))))

(CFFI:DEFCFUN ("dsptri_" %%DSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10278 ':INT32) (INFO-REF10282 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10282 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10279 AP)
                                            (IPIV-REF10280 IPIV)
                                            (WORK-REF10281 WORK))
      (%%DSPTRI UPLO N-REF10278 AP-REF10279 IPIV-REF10280 WORK-REF10281
                INFO-REF10282))))

(CFFI:DEFCFUN ("dsptrs_" %%DSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10284 ':INT32) (NRHS-REF10285 ':INT32)
                              (LDB-REF10289 ':INT32) (INFO-REF10290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10285 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10289 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10286 AP)
                                            (IPIV-REF10287 IPIV) (B-REF10288 B))
      (%%DSPTRS UPLO N-REF10284 NRHS-REF10285 AP-REF10286 IPIV-REF10287
                B-REF10288 LDB-REF10289 INFO-REF10290))))

(CFFI:DEFCFUN ("dstebz_" %%DSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (NSPLIT :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEBZ
                   (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK
                    ISPLIT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10293 ':INT32) (VL-REF10294 ':DOUBLE)
                              (VU-REF10295 ':DOUBLE) (IL-REF10296 ':INT32)
                              (IU-REF10297 ':INT32) (ABSTOL-REF10298 ':DOUBLE)
                              (M-REF10301 ':INT32) (NSPLIT-REF10302 ':INT32)
                              (INFO-REF10308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10293 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10294 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10295 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10296 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10297 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10298 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10301 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF10302 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10299 D) (E-REF10300 E)
                                            (W-REF10303 W)
                                            (IBLOCK-REF10304 IBLOCK)
                                            (ISPLIT-REF10305 ISPLIT)
                                            (WORK-REF10306 WORK)
                                            (IWORK-REF10307 IWORK))
      (%%DSTEBZ RANGE ORDER N-REF10293 VL-REF10294 VU-REF10295 IL-REF10296
                IU-REF10297 ABSTOL-REF10298 D-REF10299 E-REF10300 M-REF10301
                NSPLIT-REF10302 W-REF10303 IBLOCK-REF10304 ISPLIT-REF10305
                WORK-REF10306 IWORK-REF10307 INFO-REF10308))))

(CFFI:DEFCFUN ("dstedc_" %%DSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEDC (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10310 ':INT32) (LDZ-REF10314 ':INT32)
                              (LWORK-REF10316 ':INT32)
                              (LIWORK-REF10318 ':INT32) (INFO-REF10319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10314 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10316 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10318 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10319 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10311 D) (E-REF10312 E)
                                            (Z-REF10313 Z) (WORK-REF10315 WORK)
                                            (IWORK-REF10317 IWORK))
      (%%DSTEDC COMPZ N-REF10310 D-REF10311 E-REF10312 Z-REF10313 LDZ-REF10314
                WORK-REF10315 LWORK-REF10316 IWORK-REF10317 LIWORK-REF10318
                INFO-REF10319))))

(CFFI:DEFCFUN ("dstegr_" %%DSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10322 ':INT32) (VL-REF10325 ':DOUBLE)
                              (VU-REF10326 ':DOUBLE) (IL-REF10327 ':INT32)
                              (IU-REF10328 ':INT32) (ABSTOL-REF10329 ':DOUBLE)
                              (M-REF10330 ':INT32) (LDZ-REF10333 ':INT32)
                              (LWORK-REF10336 ':INT32)
                              (LIWORK-REF10338 ':INT32) (INFO-REF10339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10322 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10325 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10326 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10327 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10328 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10329 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10330 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10333 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10336 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10338 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10339 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10323 D) (E-REF10324 E)
                                            (W-REF10331 W) (Z-REF10332 Z)
                                            (ISUPPZ-REF10334 ISUPPZ)
                                            (WORK-REF10335 WORK)
                                            (IWORK-REF10337 IWORK))
      (%%DSTEGR JOBZ RANGE N-REF10322 D-REF10323 E-REF10324 VL-REF10325
                VU-REF10326 IL-REF10327 IU-REF10328 ABSTOL-REF10329 M-REF10330
                W-REF10331 Z-REF10332 LDZ-REF10333 ISUPPZ-REF10334
                WORK-REF10335 LWORK-REF10336 IWORK-REF10337 LIWORK-REF10338
                INFO-REF10339))))

(CFFI:DEFCFUN ("dstein_" %%DSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10340 ':INT32) (M-REF10343 ':INT32)
                              (LDZ-REF10348 ':INT32) (INFO-REF10352 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10340 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10343 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10348 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10352 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10341 D) (E-REF10342 E)
                                            (W-REF10344 W)
                                            (IBLOCK-REF10345 IBLOCK)
                                            (ISPLIT-REF10346 ISPLIT)
                                            (Z-REF10347 Z) (WORK-REF10349 WORK)
                                            (IWORK-REF10350 IWORK)
                                            (IFAIL-REF10351 IFAIL))
      (%%DSTEIN N-REF10340 D-REF10341 E-REF10342 M-REF10343 W-REF10344
                IBLOCK-REF10345 ISPLIT-REF10346 Z-REF10347 LDZ-REF10348
                WORK-REF10349 IWORK-REF10350 IFAIL-REF10351 INFO-REF10352))))

(CFFI:DEFCFUN ("dstemr_" %%DSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10355 ':INT32) (VL-REF10358 ':DOUBLE)
                              (VU-REF10359 ':DOUBLE) (IL-REF10360 ':INT32)
                              (IU-REF10361 ':INT32) (M-REF10362 ':INT32)
                              (LDZ-REF10365 ':INT32) (NZC-REF10366 ':INT32)
                              (TRYRAC-REF10368 ':INT32)
                              (LWORK-REF10370 ':INT32)
                              (LIWORK-REF10372 ':INT32) (INFO-REF10373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10355 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10358 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10359 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10360 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10361 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10362 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10365 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF10366 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF10368 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10370 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10372 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10373 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10356 D) (E-REF10357 E)
                                            (W-REF10363 W) (Z-REF10364 Z)
                                            (ISUPPZ-REF10367 ISUPPZ)
                                            (WORK-REF10369 WORK)
                                            (IWORK-REF10371 IWORK))
      (%%DSTEMR JOBZ RANGE N-REF10355 D-REF10356 E-REF10357 VL-REF10358
                VU-REF10359 IL-REF10360 IU-REF10361 M-REF10362 W-REF10363
                Z-REF10364 LDZ-REF10365 NZC-REF10366 ISUPPZ-REF10367
                TRYRAC-REF10368 WORK-REF10369 LWORK-REF10370 IWORK-REF10371
                LIWORK-REF10372 INFO-REF10373))))

(CFFI:DEFCFUN ("dsteqr_" %%DSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10375 ':INT32) (LDZ-REF10379 ':INT32)
                              (INFO-REF10381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10375 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10379 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10376 D) (E-REF10377 E)
                                            (Z-REF10378 Z) (WORK-REF10380 WORK))
      (%%DSTEQR COMPZ N-REF10375 D-REF10376 E-REF10377 Z-REF10378 LDZ-REF10379
                WORK-REF10380 INFO-REF10381))))

(CFFI:DEFCFUN ("dsterf_" %%DSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTERF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10382 ':INT32) (INFO-REF10385 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10385 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10383 D) (E-REF10384 E))
      (%%DSTERF N-REF10382 D-REF10383 E-REF10384 INFO-REF10385))))

(CFFI:DEFCFUN ("dstev_" %%DSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10387 ':INT32) (LDZ-REF10391 ':INT32)
                              (INFO-REF10393 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10387 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10391 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10393 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10388 D) (E-REF10389 E)
                                            (Z-REF10390 Z) (WORK-REF10392 WORK))
      (%%DSTEV JOBZ N-REF10387 D-REF10388 E-REF10389 Z-REF10390 LDZ-REF10391
               WORK-REF10392 INFO-REF10393))))

(CFFI:DEFCFUN ("dstevd_" %%DSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVD (JOBZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10395 ':INT32) (LDZ-REF10399 ':INT32)
                              (LWORK-REF10401 ':INT32)
                              (LIWORK-REF10403 ':INT32) (INFO-REF10404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10395 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10399 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10401 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10403 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10404 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10396 D) (E-REF10397 E)
                                            (Z-REF10398 Z) (WORK-REF10400 WORK)
                                            (IWORK-REF10402 IWORK))
      (%%DSTEVD JOBZ N-REF10395 D-REF10396 E-REF10397 Z-REF10398 LDZ-REF10399
                WORK-REF10400 LWORK-REF10401 IWORK-REF10402 LIWORK-REF10403
                INFO-REF10404))))

(CFFI:DEFCFUN ("dstevr_" %%DSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10407 ':INT32) (VL-REF10410 ':DOUBLE)
                              (VU-REF10411 ':DOUBLE) (IL-REF10412 ':INT32)
                              (IU-REF10413 ':INT32) (ABSTOL-REF10414 ':DOUBLE)
                              (M-REF10415 ':INT32) (LDZ-REF10418 ':INT32)
                              (LWORK-REF10421 ':INT32)
                              (LIWORK-REF10423 ':INT32) (INFO-REF10424 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10410 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10411 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10412 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10413 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10414 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10415 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10418 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10421 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10423 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10424 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10408 D) (E-REF10409 E)
                                            (W-REF10416 W) (Z-REF10417 Z)
                                            (ISUPPZ-REF10419 ISUPPZ)
                                            (WORK-REF10420 WORK)
                                            (IWORK-REF10422 IWORK))
      (%%DSTEVR JOBZ RANGE N-REF10407 D-REF10408 E-REF10409 VL-REF10410
                VU-REF10411 IL-REF10412 IU-REF10413 ABSTOL-REF10414 M-REF10415
                W-REF10416 Z-REF10417 LDZ-REF10418 ISUPPZ-REF10419
                WORK-REF10420 LWORK-REF10421 IWORK-REF10422 LIWORK-REF10423
                INFO-REF10424))))

(CFFI:DEFCFUN ("dstevx_" %%DSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSTEVX
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK
                    IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10427 ':INT32) (VL-REF10430 ':DOUBLE)
                              (VU-REF10431 ':DOUBLE) (IL-REF10432 ':INT32)
                              (IU-REF10433 ':INT32) (ABSTOL-REF10434 ':DOUBLE)
                              (M-REF10435 ':INT32) (LDZ-REF10438 ':INT32)
                              (INFO-REF10442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10427 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10430 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10431 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10432 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10433 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10434 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10435 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10438 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10428 D) (E-REF10429 E)
                                            (W-REF10436 W) (Z-REF10437 Z)
                                            (WORK-REF10439 WORK)
                                            (IWORK-REF10440 IWORK)
                                            (IFAIL-REF10441 IFAIL))
      (%%DSTEVX JOBZ RANGE N-REF10427 D-REF10428 E-REF10429 VL-REF10430
                VU-REF10431 IL-REF10432 IU-REF10433 ABSTOL-REF10434 M-REF10435
                W-REF10436 Z-REF10437 LDZ-REF10438 WORK-REF10439 IWORK-REF10440
                IFAIL-REF10441 INFO-REF10442))))

(CFFI:DEFCFUN ("dsycon_" %%DSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10444 ':INT32) (LDA-REF10446 ':INT32)
                              (ANORM-REF10448 ':DOUBLE)
                              (RCOND-REF10449 ':DOUBLE) (INFO-REF10452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10446 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10448 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10449 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10445 A) (IPIV-REF10447 IPIV)
                                            (WORK-REF10450 WORK)
                                            (IWORK-REF10451 IWORK))
      (%%DSYCON UPLO N-REF10444 A-REF10445 LDA-REF10446 IPIV-REF10447
                ANORM-REF10448 RCOND-REF10449 WORK-REF10450 IWORK-REF10451
                INFO-REF10452))))

(CFFI:DEFCFUN ("dsycon_3_" %%DSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10454 ':INT32) (LDA-REF10456 ':INT32)
                              (ANORM-REF10459 ':DOUBLE)
                              (RCOND-REF10460 ':DOUBLE) (INFO-REF10463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10459 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10460 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10463 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10455 A) (E-REF10457 E)
                                            (IPIV-REF10458 IPIV)
                                            (WORK-REF10461 WORK)
                                            (IWORK-REF10462 IWORK))
      (%%DSYCON_3 UPLO N-REF10454 A-REF10455 LDA-REF10456 E-REF10457
                  IPIV-REF10458 ANORM-REF10459 RCOND-REF10460 WORK-REF10461
                  IWORK-REF10462 INFO-REF10463))))

(CFFI:DEFCFUN ("dsycon_rook_" %%DSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10465 ':INT32) (LDA-REF10467 ':INT32)
                              (ANORM-REF10469 ':DOUBLE)
                              (RCOND-REF10470 ':DOUBLE) (INFO-REF10473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10467 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10469 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10470 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10473 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10466 A) (IPIV-REF10468 IPIV)
                                            (WORK-REF10471 WORK)
                                            (IWORK-REF10472 IWORK))
      (%%DSYCON_ROOK UPLO N-REF10465 A-REF10466 LDA-REF10467 IPIV-REF10468
                     ANORM-REF10469 RCOND-REF10470 WORK-REF10471 IWORK-REF10472
                     INFO-REF10473))))

(CFFI:DEFCFUN ("dsyconv_" %%DSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10476 ':INT32) (LDA-REF10478 ':INT32)
                              (INFO-REF10481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10476 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10478 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10481 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10477 A) (IPIV-REF10479 IPIV)
                                            (E-REF10480 E))
      (%%DSYCONV UPLO WAY N-REF10476 A-REF10477 LDA-REF10478 IPIV-REF10479
                 E-REF10480 INFO-REF10481))))

(CFFI:DEFCFUN ("dsyconvf_" %%DSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10484 ':INT32) (LDA-REF10486 ':INT32)
                              (INFO-REF10489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10486 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10485 A) (E-REF10487 E)
                                            (IPIV-REF10488 IPIV))
      (%%DSYCONVF UPLO WAY N-REF10484 A-REF10485 LDA-REF10486 E-REF10487
                  IPIV-REF10488 INFO-REF10489))))

(CFFI:DEFCFUN ("dsyconvf_rook_" %%DSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10492 ':INT32) (LDA-REF10494 ':INT32)
                              (INFO-REF10497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10493 A) (E-REF10495 E)
                                            (IPIV-REF10496 IPIV))
      (%%DSYCONVF_ROOK UPLO WAY N-REF10492 A-REF10493 LDA-REF10494 E-REF10495
                       IPIV-REF10496 INFO-REF10497))))

(CFFI:DEFCFUN ("dsyequb_" %%DSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10499 ':INT32) (LDA-REF10501 ':INT32)
                              (SCOND-REF10503 ':DOUBLE)
                              (AMAX-REF10504 ':DOUBLE) (INFO-REF10506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10499 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10501 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF10503 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF10504 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10500 A) (S-REF10502 S)
                                            (WORK-REF10505 WORK))
      (%%DSYEQUB UPLO N-REF10499 A-REF10500 LDA-REF10501 S-REF10502
                 SCOND-REF10503 AMAX-REF10504 WORK-REF10505 INFO-REF10506))))

(CFFI:DEFCFUN ("dsyev_" %%DSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10509 ':INT32) (LDA-REF10511 ':INT32)
                              (LWORK-REF10514 ':INT32) (INFO-REF10515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10510 A) (W-REF10512 W)
                                            (WORK-REF10513 WORK))
      (%%DSYEV JOBZ UPLO N-REF10509 A-REF10510 LDA-REF10511 W-REF10512
               WORK-REF10513 LWORK-REF10514 INFO-REF10515))))

(CFFI:DEFCFUN ("dsyev_2stage_" %%DSYEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10518 ':INT32) (LDA-REF10520 ':INT32)
                              (LWORK-REF10523 ':INT32) (INFO-REF10524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10523 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10519 A) (W-REF10521 W)
                                            (WORK-REF10522 WORK))
      (%%DSYEV_2STAGE JOBZ UPLO N-REF10518 A-REF10519 LDA-REF10520 W-REF10521
                      WORK-REF10522 LWORK-REF10523 INFO-REF10524))))

(CFFI:DEFCFUN ("dsyevd_" %%DSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVD (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10527 ':INT32) (LDA-REF10529 ':INT32)
                              (LWORK-REF10532 ':INT32)
                              (LIWORK-REF10534 ':INT32) (INFO-REF10535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10529 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10532 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10534 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10535 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10528 A) (W-REF10530 W)
                                            (WORK-REF10531 WORK)
                                            (IWORK-REF10533 IWORK))
      (%%DSYEVD JOBZ UPLO N-REF10527 A-REF10528 LDA-REF10529 W-REF10530
                WORK-REF10531 LWORK-REF10532 IWORK-REF10533 LIWORK-REF10534
                INFO-REF10535))))

(CFFI:DEFCFUN ("dsyevd_2stage_" %%DSYEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10538 ':INT32) (LDA-REF10540 ':INT32)
                              (LWORK-REF10543 ':INT32)
                              (LIWORK-REF10545 ':INT32) (INFO-REF10546 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10538 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10540 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10543 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10545 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10546 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10539 A) (W-REF10541 W)
                                            (WORK-REF10542 WORK)
                                            (IWORK-REF10544 IWORK))
      (%%DSYEVD_2STAGE JOBZ UPLO N-REF10538 A-REF10539 LDA-REF10540 W-REF10541
                       WORK-REF10542 LWORK-REF10543 IWORK-REF10544
                       LIWORK-REF10545 INFO-REF10546))))

(CFFI:DEFCFUN ("dsyevr_" %%DSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10550 ':INT32) (LDA-REF10552 ':INT32)
                              (VL-REF10553 ':DOUBLE) (VU-REF10554 ':DOUBLE)
                              (IL-REF10555 ':INT32) (IU-REF10556 ':INT32)
                              (ABSTOL-REF10557 ':DOUBLE) (M-REF10558 ':INT32)
                              (LDZ-REF10561 ':INT32) (LWORK-REF10564 ':INT32)
                              (LIWORK-REF10566 ':INT32) (INFO-REF10567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10552 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10553 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10554 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10555 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10556 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10557 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10558 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10561 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10564 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10566 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10551 A) (W-REF10559 W)
                                            (Z-REF10560 Z)
                                            (ISUPPZ-REF10562 ISUPPZ)
                                            (WORK-REF10563 WORK)
                                            (IWORK-REF10565 IWORK))
      (%%DSYEVR JOBZ RANGE UPLO N-REF10550 A-REF10551 LDA-REF10552 VL-REF10553
                VU-REF10554 IL-REF10555 IU-REF10556 ABSTOL-REF10557 M-REF10558
                W-REF10559 Z-REF10560 LDZ-REF10561 ISUPPZ-REF10562
                WORK-REF10563 LWORK-REF10564 IWORK-REF10565 LIWORK-REF10566
                INFO-REF10567))))

(CFFI:DEFCFUN ("dsyevr_2stage_" %%DSYEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10571 ':INT32) (LDA-REF10573 ':INT32)
                              (VL-REF10574 ':DOUBLE) (VU-REF10575 ':DOUBLE)
                              (IL-REF10576 ':INT32) (IU-REF10577 ':INT32)
                              (ABSTOL-REF10578 ':DOUBLE) (M-REF10579 ':INT32)
                              (LDZ-REF10582 ':INT32) (LWORK-REF10585 ':INT32)
                              (LIWORK-REF10587 ':INT32) (INFO-REF10588 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10571 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10573 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10574 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10575 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10576 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10577 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10578 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10579 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10582 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10585 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10587 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10588 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10572 A) (W-REF10580 W)
                                            (Z-REF10581 Z)
                                            (ISUPPZ-REF10583 ISUPPZ)
                                            (WORK-REF10584 WORK)
                                            (IWORK-REF10586 IWORK))
      (%%DSYEVR_2STAGE JOBZ RANGE UPLO N-REF10571 A-REF10572 LDA-REF10573
                       VL-REF10574 VU-REF10575 IL-REF10576 IU-REF10577
                       ABSTOL-REF10578 M-REF10579 W-REF10580 Z-REF10581
                       LDZ-REF10582 ISUPPZ-REF10583 WORK-REF10584
                       LWORK-REF10585 IWORK-REF10586 LIWORK-REF10587
                       INFO-REF10588))))

(CFFI:DEFCFUN ("dsyevx_" %%DSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10592 ':INT32) (LDA-REF10594 ':INT32)
                              (VL-REF10595 ':DOUBLE) (VU-REF10596 ':DOUBLE)
                              (IL-REF10597 ':INT32) (IU-REF10598 ':INT32)
                              (ABSTOL-REF10599 ':DOUBLE) (M-REF10600 ':INT32)
                              (LDZ-REF10603 ':INT32) (LWORK-REF10605 ':INT32)
                              (INFO-REF10608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10594 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10595 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10596 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10597 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10598 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10599 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10600 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10603 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10605 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10593 A) (W-REF10601 W)
                                            (Z-REF10602 Z) (WORK-REF10604 WORK)
                                            (IWORK-REF10606 IWORK)
                                            (IFAIL-REF10607 IFAIL))
      (%%DSYEVX JOBZ RANGE UPLO N-REF10592 A-REF10593 LDA-REF10594 VL-REF10595
                VU-REF10596 IL-REF10597 IU-REF10598 ABSTOL-REF10599 M-REF10600
                W-REF10601 Z-REF10602 LDZ-REF10603 WORK-REF10604 LWORK-REF10605
                IWORK-REF10606 IFAIL-REF10607 INFO-REF10608))))

(CFFI:DEFCFUN ("dsyevx_2stage_" %%DSYEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10612 ':INT32) (LDA-REF10614 ':INT32)
                              (VL-REF10615 ':DOUBLE) (VU-REF10616 ':DOUBLE)
                              (IL-REF10617 ':INT32) (IU-REF10618 ':INT32)
                              (ABSTOL-REF10619 ':DOUBLE) (M-REF10620 ':INT32)
                              (LDZ-REF10623 ':INT32) (LWORK-REF10625 ':INT32)
                              (INFO-REF10628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10612 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10614 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10615 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10616 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10617 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10618 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10619 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10620 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10623 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10625 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10628 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10613 A) (W-REF10621 W)
                                            (Z-REF10622 Z) (WORK-REF10624 WORK)
                                            (IWORK-REF10626 IWORK)
                                            (IFAIL-REF10627 IFAIL))
      (%%DSYEVX_2STAGE JOBZ RANGE UPLO N-REF10612 A-REF10613 LDA-REF10614
                       VL-REF10615 VU-REF10616 IL-REF10617 IU-REF10618
                       ABSTOL-REF10619 M-REF10620 W-REF10621 Z-REF10622
                       LDZ-REF10623 WORK-REF10624 LWORK-REF10625 IWORK-REF10626
                       IFAIL-REF10627 INFO-REF10628))))

(CFFI:DEFCFUN ("dsygs2_" %%DSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10629 ':INT32) (N-REF10631 ':INT32)
                              (LDA-REF10633 ':INT32) (LDB-REF10635 ':INT32)
                              (INFO-REF10636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10629 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10633 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10635 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10636 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10632 A) (B-REF10634 B))
      (%%DSYGS2 ITYPE-REF10629 UPLO N-REF10631 A-REF10632 LDA-REF10633
                B-REF10634 LDB-REF10635 INFO-REF10636))))

(CFFI:DEFCFUN ("dsygst_" %%DSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10637 ':INT32) (N-REF10639 ':INT32)
                              (LDA-REF10641 ':INT32) (LDB-REF10643 ':INT32)
                              (INFO-REF10644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10637 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10639 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10641 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10643 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10644 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10640 A) (B-REF10642 B))
      (%%DSYGST ITYPE-REF10637 UPLO N-REF10639 A-REF10640 LDA-REF10641
                B-REF10642 LDB-REF10643 INFO-REF10644))))

(CFFI:DEFCFUN ("dsygv_" %%DSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGV (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10645 ':INT32) (N-REF10648 ':INT32)
                              (LDA-REF10650 ':INT32) (LDB-REF10652 ':INT32)
                              (LWORK-REF10655 ':INT32) (INFO-REF10656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10645 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10650 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10652 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10655 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10649 A) (B-REF10651 B)
                                            (W-REF10653 W) (WORK-REF10654 WORK))
      (%%DSYGV ITYPE-REF10645 JOBZ UPLO N-REF10648 A-REF10649 LDA-REF10650
               B-REF10651 LDB-REF10652 W-REF10653 WORK-REF10654 LWORK-REF10655
               INFO-REF10656))))

(CFFI:DEFCFUN ("dsygv_2stage_" %%DSYGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10657 ':INT32) (N-REF10660 ':INT32)
                              (LDA-REF10662 ':INT32) (LDB-REF10664 ':INT32)
                              (LWORK-REF10667 ':INT32) (INFO-REF10668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10657 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10664 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10667 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10668 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10661 A) (B-REF10663 B)
                                            (W-REF10665 W) (WORK-REF10666 WORK))
      (%%DSYGV_2STAGE ITYPE-REF10657 JOBZ UPLO N-REF10660 A-REF10661
                      LDA-REF10662 B-REF10663 LDB-REF10664 W-REF10665
                      WORK-REF10666 LWORK-REF10667 INFO-REF10668))))

(CFFI:DEFCFUN ("dsygvd_" %%DSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10669 ':INT32) (N-REF10672 ':INT32)
                              (LDA-REF10674 ':INT32) (LDB-REF10676 ':INT32)
                              (LWORK-REF10679 ':INT32)
                              (LIWORK-REF10681 ':INT32) (INFO-REF10682 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10669 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10672 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10674 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10676 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10679 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10681 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10682 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10673 A) (B-REF10675 B)
                                            (W-REF10677 W) (WORK-REF10678 WORK)
                                            (IWORK-REF10680 IWORK))
      (%%DSYGVD ITYPE-REF10669 JOBZ UPLO N-REF10672 A-REF10673 LDA-REF10674
                B-REF10675 LDB-REF10676 W-REF10677 WORK-REF10678 LWORK-REF10679
                IWORK-REF10680 LIWORK-REF10681 INFO-REF10682))))

(CFFI:DEFCFUN ("dsygvx_" %%DSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10683 ':INT32) (N-REF10687 ':INT32)
                              (LDA-REF10689 ':INT32) (LDB-REF10691 ':INT32)
                              (VL-REF10692 ':DOUBLE) (VU-REF10693 ':DOUBLE)
                              (IL-REF10694 ':INT32) (IU-REF10695 ':INT32)
                              (ABSTOL-REF10696 ':DOUBLE) (M-REF10697 ':INT32)
                              (LDZ-REF10700 ':INT32) (LWORK-REF10702 ':INT32)
                              (INFO-REF10705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10683 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10689 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10691 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10692 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10693 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10694 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10695 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10696 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10697 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10700 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10702 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10688 A) (B-REF10690 B)
                                            (W-REF10698 W) (Z-REF10699 Z)
                                            (WORK-REF10701 WORK)
                                            (IWORK-REF10703 IWORK)
                                            (IFAIL-REF10704 IFAIL))
      (%%DSYGVX ITYPE-REF10683 JOBZ RANGE UPLO N-REF10687 A-REF10688
                LDA-REF10689 B-REF10690 LDB-REF10691 VL-REF10692 VU-REF10693
                IL-REF10694 IU-REF10695 ABSTOL-REF10696 M-REF10697 W-REF10698
                Z-REF10699 LDZ-REF10700 WORK-REF10701 LWORK-REF10702
                IWORK-REF10703 IFAIL-REF10704 INFO-REF10705))))

(CFFI:DEFCFUN ("dsyrfs_" %%DSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10707 ':INT32) (NRHS-REF10708 ':INT32)
                              (LDA-REF10710 ':INT32) (LDAF-REF10712 ':INT32)
                              (LDB-REF10715 ':INT32) (LDX-REF10717 ':INT32)
                              (INFO-REF10722 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10707 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10708 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10710 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10712 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10715 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10717 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10722 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10709 A) (AF-REF10711 AF)
                                            (IPIV-REF10713 IPIV) (B-REF10714 B)
                                            (X-REF10716 X) (FERR-REF10718 FERR)
                                            (BERR-REF10719 BERR)
                                            (WORK-REF10720 WORK)
                                            (IWORK-REF10721 IWORK))
      (%%DSYRFS UPLO N-REF10707 NRHS-REF10708 A-REF10709 LDA-REF10710
                AF-REF10711 LDAF-REF10712 IPIV-REF10713 B-REF10714 LDB-REF10715
                X-REF10716 LDX-REF10717 FERR-REF10718 BERR-REF10719
                WORK-REF10720 IWORK-REF10721 INFO-REF10722))))

(CFFI:DEFCFUN ("dsyrfsx_" %%DSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10725 ':INT32) (NRHS-REF10726 ':INT32)
                              (LDA-REF10728 ':INT32) (LDAF-REF10730 ':INT32)
                              (LDB-REF10734 ':INT32) (LDX-REF10736 ':INT32)
                              (RCOND-REF10737 ':DOUBLE)
                              (N_ERR_BNDS-REF10739 ':INT32)
                              (NPARAMS-REF10742 ':INT32)
                              (INFO-REF10746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10725 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10726 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10728 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10730 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10734 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10736 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10737 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10739 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10742 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10746 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10727 A) (AF-REF10729 AF)
                                            (IPIV-REF10731 IPIV) (S-REF10732 S)
                                            (B-REF10733 B) (X-REF10735 X)
                                            (BERR-REF10738 BERR)
                                            (ERR_BNDS_NORM-REF10740
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF10741
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF10743 PARAMS)
                                            (WORK-REF10744 WORK)
                                            (IWORK-REF10745 IWORK))
      (%%DSYRFSX UPLO EQUED N-REF10725 NRHS-REF10726 A-REF10727 LDA-REF10728
                 AF-REF10729 LDAF-REF10730 IPIV-REF10731 S-REF10732 B-REF10733
                 LDB-REF10734 X-REF10735 LDX-REF10736 RCOND-REF10737
                 BERR-REF10738 N_ERR_BNDS-REF10739 ERR_BNDS_NORM-REF10740
                 ERR_BNDS_COMP-REF10741 NPARAMS-REF10742 PARAMS-REF10743
                 WORK-REF10744 IWORK-REF10745 INFO-REF10746))))

(CFFI:DEFCFUN ("dsysv_" %%DSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10748 ':INT32) (NRHS-REF10749 ':INT32)
                              (LDA-REF10751 ':INT32) (LDB-REF10754 ':INT32)
                              (LWORK-REF10756 ':INT32) (INFO-REF10757 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10748 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10749 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10751 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10754 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10756 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10757 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10750 A) (IPIV-REF10752 IPIV)
                                            (B-REF10753 B) (WORK-REF10755 WORK))
      (%%DSYSV UPLO N-REF10748 NRHS-REF10749 A-REF10750 LDA-REF10751
               IPIV-REF10752 B-REF10753 LDB-REF10754 WORK-REF10755
               LWORK-REF10756 INFO-REF10757))))

(CFFI:DEFCFUN ("dsysv_aa_" %%DSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10759 ':INT32) (NRHS-REF10760 ':INT32)
                              (LDA-REF10762 ':INT32) (LDB-REF10765 ':INT32)
                              (LWORK-REF10767 ':INT32) (INFO-REF10768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10760 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10762 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10765 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10767 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10761 A) (IPIV-REF10763 IPIV)
                                            (B-REF10764 B) (WORK-REF10766 WORK))
      (%%DSYSV_AA UPLO N-REF10759 NRHS-REF10760 A-REF10761 LDA-REF10762
                  IPIV-REF10763 B-REF10764 LDB-REF10765 WORK-REF10766
                  LWORK-REF10767 INFO-REF10768))))

(CFFI:DEFCFUN ("dsysv_aa_2stage_" %%DSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10770 ':INT32) (NRHS-REF10771 ':INT32)
                              (LDA-REF10773 ':INT32) (LTB-REF10775 ':INT32)
                              (LDB-REF10779 ':INT32) (LWORK-REF10781 ':INT32)
                              (INFO-REF10782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10770 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10771 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10773 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10775 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10779 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10781 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10772 A) (TB-REF10774 TB)
                                            (IPIV-REF10776 IPIV)
                                            (IPIV2-REF10777 IPIV2)
                                            (B-REF10778 B) (WORK-REF10780 WORK))
      (%%DSYSV_AA_2STAGE UPLO N-REF10770 NRHS-REF10771 A-REF10772 LDA-REF10773
                         TB-REF10774 LTB-REF10775 IPIV-REF10776 IPIV2-REF10777
                         B-REF10778 LDB-REF10779 WORK-REF10780 LWORK-REF10781
                         INFO-REF10782))))

(CFFI:DEFCFUN ("dsysv_rk_" %%DSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10784 ':INT32) (NRHS-REF10785 ':INT32)
                              (LDA-REF10787 ':INT32) (LDB-REF10791 ':INT32)
                              (LWORK-REF10793 ':INT32) (INFO-REF10794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10785 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10791 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10793 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10794 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10786 A) (E-REF10788 E)
                                            (IPIV-REF10789 IPIV) (B-REF10790 B)
                                            (WORK-REF10792 WORK))
      (%%DSYSV_RK UPLO N-REF10784 NRHS-REF10785 A-REF10786 LDA-REF10787
                  E-REF10788 IPIV-REF10789 B-REF10790 LDB-REF10791
                  WORK-REF10792 LWORK-REF10793 INFO-REF10794))))

(CFFI:DEFCFUN ("dsysv_rook_" %%DSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10796 ':INT32) (NRHS-REF10797 ':INT32)
                              (LDA-REF10799 ':INT32) (LDB-REF10802 ':INT32)
                              (LWORK-REF10804 ':INT32) (INFO-REF10805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10797 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10799 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10802 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10804 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10798 A) (IPIV-REF10800 IPIV)
                                            (B-REF10801 B) (WORK-REF10803 WORK))
      (%%DSYSV_ROOK UPLO N-REF10796 NRHS-REF10797 A-REF10798 LDA-REF10799
                    IPIV-REF10800 B-REF10801 LDB-REF10802 WORK-REF10803
                    LWORK-REF10804 INFO-REF10805))))

(CFFI:DEFCFUN ("dsysvx_" %%DSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10808 ':INT32) (NRHS-REF10809 ':INT32)
                              (LDA-REF10811 ':INT32) (LDAF-REF10813 ':INT32)
                              (LDB-REF10816 ':INT32) (LDX-REF10818 ':INT32)
                              (RCOND-REF10819 ':DOUBLE)
                              (LWORK-REF10823 ':INT32) (INFO-REF10825 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10809 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10811 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10813 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10816 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10818 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10819 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10823 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10825 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10810 A) (AF-REF10812 AF)
                                            (IPIV-REF10814 IPIV) (B-REF10815 B)
                                            (X-REF10817 X) (FERR-REF10820 FERR)
                                            (BERR-REF10821 BERR)
                                            (WORK-REF10822 WORK)
                                            (IWORK-REF10824 IWORK))
      (%%DSYSVX FACT UPLO N-REF10808 NRHS-REF10809 A-REF10810 LDA-REF10811
                AF-REF10812 LDAF-REF10813 IPIV-REF10814 B-REF10815 LDB-REF10816
                X-REF10817 LDX-REF10818 RCOND-REF10819 FERR-REF10820
                BERR-REF10821 WORK-REF10822 LWORK-REF10823 IWORK-REF10824
                INFO-REF10825))))

(CFFI:DEFCFUN ("dsysvxx_" %%DSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10828 ':INT32) (NRHS-REF10829 ':INT32)
                              (LDA-REF10831 ':INT32) (LDAF-REF10833 ':INT32)
                              (LDB-REF10838 ':INT32) (LDX-REF10840 ':INT32)
                              (RCOND-REF10841 ':DOUBLE)
                              (RPVGRW-REF10842 ':DOUBLE)
                              (N_ERR_BNDS-REF10844 ':INT32)
                              (NPARAMS-REF10847 ':INT32)
                              (INFO-REF10851 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10829 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10831 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10833 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10838 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10840 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10841 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF10842 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10844 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10847 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10851 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10830 A) (AF-REF10832 AF)
                                            (IPIV-REF10834 IPIV) (S-REF10836 S)
                                            (B-REF10837 B) (X-REF10839 X)
                                            (BERR-REF10843 BERR)
                                            (ERR_BNDS_NORM-REF10845
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF10846
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF10848 PARAMS)
                                            (WORK-REF10849 WORK)
                                            (IWORK-REF10850 IWORK))
      (%%DSYSVXX FACT UPLO N-REF10828 NRHS-REF10829 A-REF10830 LDA-REF10831
                 AF-REF10832 LDAF-REF10833 IPIV-REF10834 EQUED S-REF10836
                 B-REF10837 LDB-REF10838 X-REF10839 LDX-REF10840 RCOND-REF10841
                 RPVGRW-REF10842 BERR-REF10843 N_ERR_BNDS-REF10844
                 ERR_BNDS_NORM-REF10845 ERR_BNDS_COMP-REF10846 NPARAMS-REF10847
                 PARAMS-REF10848 WORK-REF10849 IWORK-REF10850 INFO-REF10851))))

(CFFI:DEFCFUN ("dsyswapr_" %%DSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %DSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10853 ':INT32) (LDA-REF10855 ':INT32)
                              (I1-REF10856 ':INT32) (I2-REF10857 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10855 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF10856 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF10857 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10854 A))
      (%%DSYSWAPR UPLO N-REF10853 A-REF10854 LDA-REF10855 I1-REF10856
                  I2-REF10857))))

(CFFI:DEFCFUN ("dsytd2_" %%DSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10859 ':INT32) (LDA-REF10861 ':INT32)
                              (INFO-REF10865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10861 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10860 A) (D-REF10862 D)
                                            (E-REF10863 E) (TAU-REF10864 TAU))
      (%%DSYTD2 UPLO N-REF10859 A-REF10860 LDA-REF10861 D-REF10862 E-REF10863
                TAU-REF10864 INFO-REF10865))))

(CFFI:DEFCFUN ("dsytf2_" %%DSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10867 ':INT32) (LDA-REF10869 ':INT32)
                              (INFO-REF10871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10869 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10871 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10868 A) (IPIV-REF10870 IPIV))
      (%%DSYTF2 UPLO N-REF10867 A-REF10868 LDA-REF10869 IPIV-REF10870
                INFO-REF10871))))

(CFFI:DEFCFUN ("dsytf2_rk_" %%DSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10873 ':INT32) (LDA-REF10875 ':INT32)
                              (INFO-REF10878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10875 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10874 A) (E-REF10876 E)
                                            (IPIV-REF10877 IPIV))
      (%%DSYTF2_RK UPLO N-REF10873 A-REF10874 LDA-REF10875 E-REF10876
                   IPIV-REF10877 INFO-REF10878))))

(CFFI:DEFCFUN ("dsytf2_rook_" %%DSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10880 ':INT32) (LDA-REF10882 ':INT32)
                              (INFO-REF10884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10884 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10881 A) (IPIV-REF10883 IPIV))
      (%%DSYTF2_ROOK UPLO N-REF10880 A-REF10881 LDA-REF10882 IPIV-REF10883
                     INFO-REF10884))))

(CFFI:DEFCFUN ("dsytrd_" %%DSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10886 ':INT32) (LDA-REF10888 ':INT32)
                              (LWORK-REF10893 ':INT32) (INFO-REF10894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10888 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10893 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10887 A) (D-REF10889 D)
                                            (E-REF10890 E) (TAU-REF10891 TAU)
                                            (WORK-REF10892 WORK))
      (%%DSYTRD UPLO N-REF10886 A-REF10887 LDA-REF10888 D-REF10889 E-REF10890
                TAU-REF10891 WORK-REF10892 LWORK-REF10893 INFO-REF10894))))

(CFFI:DEFCFUN ("dsytrd_2stage_" %%DSYTRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10897 ':INT32) (LDA-REF10899 ':INT32)
                              (LHOUS2-REF10904 ':INT32)
                              (LWORK-REF10906 ':INT32) (INFO-REF10907 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10897 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF10904 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10906 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10907 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10898 A) (D-REF10900 D)
                                            (E-REF10901 E) (TAU-REF10902 TAU)
                                            (HOUS2-REF10903 HOUS2)
                                            (WORK-REF10905 WORK))
      (%%DSYTRD_2STAGE VECT UPLO N-REF10897 A-REF10898 LDA-REF10899 D-REF10900
                       E-REF10901 TAU-REF10902 HOUS2-REF10903 LHOUS2-REF10904
                       WORK-REF10905 LWORK-REF10906 INFO-REF10907))))

(CFFI:DEFCFUN ("dsytrd_sy2sb_" %%DSYTRD_SY2SB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRD_SY2SB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD_SY2SB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10909 ':INT32) (KD-REF10910 ':INT32)
                              (LDA-REF10912 ':INT32) (LDAB-REF10914 ':INT32)
                              (LWORK-REF10917 ':INT32) (INFO-REF10918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10909 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10910 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10912 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10914 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10917 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10911 A) (AB-REF10913 AB)
                                            (TAU-REF10915 TAU)
                                            (WORK-REF10916 WORK))
      (%%DSYTRD_SY2SB UPLO N-REF10909 KD-REF10910 A-REF10911 LDA-REF10912
                      AB-REF10913 LDAB-REF10914 TAU-REF10915 WORK-REF10916
                      LWORK-REF10917 INFO-REF10918))))

(CFFI:DEFCFUN ("dsytrf_" %%DSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10920 ':INT32) (LDA-REF10922 ':INT32)
                              (LWORK-REF10925 ':INT32) (INFO-REF10926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10920 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10922 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10925 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10926 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10921 A) (IPIV-REF10923 IPIV)
                                            (WORK-REF10924 WORK))
      (%%DSYTRF UPLO N-REF10920 A-REF10921 LDA-REF10922 IPIV-REF10923
                WORK-REF10924 LWORK-REF10925 INFO-REF10926))))

(CFFI:DEFCFUN ("dsytrf_aa_" %%DSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10928 ':INT32) (LDA-REF10930 ':INT32)
                              (LWORK-REF10933 ':INT32) (INFO-REF10934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10928 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10930 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10933 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10934 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10929 A) (IPIV-REF10931 IPIV)
                                            (WORK-REF10932 WORK))
      (%%DSYTRF_AA UPLO N-REF10928 A-REF10929 LDA-REF10930 IPIV-REF10931
                   WORK-REF10932 LWORK-REF10933 INFO-REF10934))))

(CFFI:DEFCFUN ("dsytrf_aa_2stage_" %%DSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10936 ':INT32) (LDA-REF10938 ':INT32)
                              (LTB-REF10940 ':INT32) (LWORK-REF10944 ':INT32)
                              (INFO-REF10945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10938 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10940 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10944 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10937 A) (TB-REF10939 TB)
                                            (IPIV-REF10941 IPIV)
                                            (IPIV2-REF10942 IPIV2)
                                            (WORK-REF10943 WORK))
      (%%DSYTRF_AA_2STAGE UPLO N-REF10936 A-REF10937 LDA-REF10938 TB-REF10939
                          LTB-REF10940 IPIV-REF10941 IPIV2-REF10942
                          WORK-REF10943 LWORK-REF10944 INFO-REF10945))))

(CFFI:DEFCFUN ("dsytrf_rk_" %%DSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10947 ':INT32) (LDA-REF10949 ':INT32)
                              (LWORK-REF10953 ':INT32) (INFO-REF10954 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10947 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10953 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10954 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10948 A) (E-REF10950 E)
                                            (IPIV-REF10951 IPIV)
                                            (WORK-REF10952 WORK))
      (%%DSYTRF_RK UPLO N-REF10947 A-REF10948 LDA-REF10949 E-REF10950
                   IPIV-REF10951 WORK-REF10952 LWORK-REF10953 INFO-REF10954))))

(CFFI:DEFCFUN ("dsytrf_rook_" %%DSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10956 ':INT32) (LDA-REF10958 ':INT32)
                              (LWORK-REF10961 ':INT32) (INFO-REF10962 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10956 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10958 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10961 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10962 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10957 A) (IPIV-REF10959 IPIV)
                                            (WORK-REF10960 WORK))
      (%%DSYTRF_ROOK UPLO N-REF10956 A-REF10957 LDA-REF10958 IPIV-REF10959
                     WORK-REF10960 LWORK-REF10961 INFO-REF10962))))

(CFFI:DEFCFUN ("dsytri_" %%DSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10964 ':INT32) (LDA-REF10966 ':INT32)
                              (INFO-REF10969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10964 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10965 A) (IPIV-REF10967 IPIV)
                                            (WORK-REF10968 WORK))
      (%%DSYTRI UPLO N-REF10964 A-REF10965 LDA-REF10966 IPIV-REF10967
                WORK-REF10968 INFO-REF10969))))

(CFFI:DEFCFUN ("dsytri2_" %%DSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10971 ':INT32) (LDA-REF10973 ':INT32)
                              (LWORK-REF10976 ':INT32) (INFO-REF10977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10973 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10976 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10972 A) (IPIV-REF10974 IPIV)
                                            (WORK-REF10975 WORK))
      (%%DSYTRI2 UPLO N-REF10971 A-REF10972 LDA-REF10973 IPIV-REF10974
                 WORK-REF10975 LWORK-REF10976 INFO-REF10977))))

(CFFI:DEFCFUN ("dsytri2x_" %%DSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10979 ':INT32) (LDA-REF10981 ':INT32)
                              (NB-REF10984 ':INT32) (INFO-REF10985 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10981 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10984 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10985 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10980 A) (IPIV-REF10982 IPIV)
                                            (WORK-REF10983 WORK))
      (%%DSYTRI2X UPLO N-REF10979 A-REF10980 LDA-REF10981 IPIV-REF10982
                  WORK-REF10983 NB-REF10984 INFO-REF10985))))

(CFFI:DEFCFUN ("dsytri_3_" %%DSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10987 ':INT32) (LDA-REF10989 ':INT32)
                              (LWORK-REF10993 ':INT32) (INFO-REF10994 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10987 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10989 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10993 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10994 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10988 A) (E-REF10990 E)
                                            (IPIV-REF10991 IPIV)
                                            (WORK-REF10992 WORK))
      (%%DSYTRI_3 UPLO N-REF10987 A-REF10988 LDA-REF10989 E-REF10990
                  IPIV-REF10991 WORK-REF10992 LWORK-REF10993 INFO-REF10994))))

(CFFI:DEFCFUN ("dsytri_3x_" %%DSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10996 ':INT32) (LDA-REF10998 ':INT32)
                              (NB-REF11002 ':INT32) (INFO-REF11003 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10996 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10998 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11002 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11003 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10997 A) (E-REF10999 E)
                                            (IPIV-REF11000 IPIV)
                                            (WORK-REF11001 WORK))
      (%%DSYTRI_3X UPLO N-REF10996 A-REF10997 LDA-REF10998 E-REF10999
                   IPIV-REF11000 WORK-REF11001 NB-REF11002 INFO-REF11003))))

(CFFI:DEFCFUN ("dsytri_rook_" %%DSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11005 ':INT32) (LDA-REF11007 ':INT32)
                              (INFO-REF11010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11005 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11006 A) (IPIV-REF11008 IPIV)
                                            (WORK-REF11009 WORK))
      (%%DSYTRI_ROOK UPLO N-REF11005 A-REF11006 LDA-REF11007 IPIV-REF11008
                     WORK-REF11009 INFO-REF11010))))

(CFFI:DEFCFUN ("dsytrs_" %%DSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11012 ':INT32) (NRHS-REF11013 ':INT32)
                              (LDA-REF11015 ':INT32) (LDB-REF11018 ':INT32)
                              (INFO-REF11019 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11013 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11015 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11018 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11019 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11014 A) (IPIV-REF11016 IPIV)
                                            (B-REF11017 B))
      (%%DSYTRS UPLO N-REF11012 NRHS-REF11013 A-REF11014 LDA-REF11015
                IPIV-REF11016 B-REF11017 LDB-REF11018 INFO-REF11019))))

(CFFI:DEFCFUN ("dsytrs2_" %%DSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11021 ':INT32) (NRHS-REF11022 ':INT32)
                              (LDA-REF11024 ':INT32) (LDB-REF11027 ':INT32)
                              (INFO-REF11029 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11022 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11024 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11027 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11029 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11023 A) (IPIV-REF11025 IPIV)
                                            (B-REF11026 B) (WORK-REF11028 WORK))
      (%%DSYTRS2 UPLO N-REF11021 NRHS-REF11022 A-REF11023 LDA-REF11024
                 IPIV-REF11025 B-REF11026 LDB-REF11027 WORK-REF11028
                 INFO-REF11029))))

(CFFI:DEFCFUN ("dsytrs_3_" %%DSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11031 ':INT32) (NRHS-REF11032 ':INT32)
                              (LDA-REF11034 ':INT32) (LDB-REF11038 ':INT32)
                              (INFO-REF11039 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11032 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11034 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11038 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11039 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11033 A) (E-REF11035 E)
                                            (IPIV-REF11036 IPIV) (B-REF11037 B))
      (%%DSYTRS_3 UPLO N-REF11031 NRHS-REF11032 A-REF11033 LDA-REF11034
                  E-REF11035 IPIV-REF11036 B-REF11037 LDB-REF11038
                  INFO-REF11039))))

(CFFI:DEFCFUN ("dsytrs_aa_" %%DSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11041 ':INT32) (NRHS-REF11042 ':INT32)
                              (LDA-REF11044 ':INT32) (LDB-REF11047 ':INT32)
                              (LWORK-REF11049 ':INT32) (INFO-REF11050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11042 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11047 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11049 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11043 A) (IPIV-REF11045 IPIV)
                                            (B-REF11046 B) (WORK-REF11048 WORK))
      (%%DSYTRS_AA UPLO N-REF11041 NRHS-REF11042 A-REF11043 LDA-REF11044
                   IPIV-REF11045 B-REF11046 LDB-REF11047 WORK-REF11048
                   LWORK-REF11049 INFO-REF11050))))

(CFFI:DEFCFUN ("dsytrs_aa_2stage_" %%DSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11052 ':INT32) (NRHS-REF11053 ':INT32)
                              (LDA-REF11055 ':INT32) (LTB-REF11057 ':INT32)
                              (LDB-REF11061 ':INT32) (INFO-REF11062 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11053 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11055 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF11057 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11061 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11062 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11054 A) (TB-REF11056 TB)
                                            (IPIV-REF11058 IPIV)
                                            (IPIV2-REF11059 IPIV2)
                                            (B-REF11060 B))
      (%%DSYTRS_AA_2STAGE UPLO N-REF11052 NRHS-REF11053 A-REF11054 LDA-REF11055
                          TB-REF11056 LTB-REF11057 IPIV-REF11058 IPIV2-REF11059
                          B-REF11060 LDB-REF11061 INFO-REF11062))))

(CFFI:DEFCFUN ("dsytrs_rook_" %%DSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11064 ':INT32) (NRHS-REF11065 ':INT32)
                              (LDA-REF11067 ':INT32) (LDB-REF11070 ':INT32)
                              (INFO-REF11071 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11064 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11065 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11067 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11070 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11071 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11066 A) (IPIV-REF11068 IPIV)
                                            (B-REF11069 B))
      (%%DSYTRS_ROOK UPLO N-REF11064 NRHS-REF11065 A-REF11066 LDA-REF11067
                     IPIV-REF11068 B-REF11069 LDB-REF11070 INFO-REF11071))))

(CFFI:DEFCFUN ("dtbcon_" %%DTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11075 ':INT32) (KD-REF11076 ':INT32)
                              (LDAB-REF11078 ':INT32) (RCOND-REF11079 ':DOUBLE)
                              (INFO-REF11082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11076 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11078 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11079 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11082 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11077 AB)
                                            (WORK-REF11080 WORK)
                                            (IWORK-REF11081 IWORK))
      (%%DTBCON NORM UPLO DIAG N-REF11075 KD-REF11076 AB-REF11077 LDAB-REF11078
                RCOND-REF11079 WORK-REF11080 IWORK-REF11081 INFO-REF11082))))

(CFFI:DEFCFUN ("dtbrfs_" %%DTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11086 ':INT32) (KD-REF11087 ':INT32)
                              (NRHS-REF11088 ':INT32) (LDAB-REF11090 ':INT32)
                              (LDB-REF11092 ':INT32) (LDX-REF11094 ':INT32)
                              (INFO-REF11099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11087 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11088 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11090 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11092 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11094 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11099 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11089 AB) (B-REF11091 B)
                                            (X-REF11093 X) (FERR-REF11095 FERR)
                                            (BERR-REF11096 BERR)
                                            (WORK-REF11097 WORK)
                                            (IWORK-REF11098 IWORK))
      (%%DTBRFS UPLO TRANS DIAG N-REF11086 KD-REF11087 NRHS-REF11088
                AB-REF11089 LDAB-REF11090 B-REF11091 LDB-REF11092 X-REF11093
                LDX-REF11094 FERR-REF11095 BERR-REF11096 WORK-REF11097
                IWORK-REF11098 INFO-REF11099))))

(CFFI:DEFCFUN ("dtbtrs_" %%DTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11103 ':INT32) (KD-REF11104 ':INT32)
                              (NRHS-REF11105 ':INT32) (LDAB-REF11107 ':INT32)
                              (LDB-REF11109 ':INT32) (INFO-REF11110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11103 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11104 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11105 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11107 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11109 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11106 AB) (B-REF11108 B))
      (%%DTBTRS UPLO TRANS DIAG N-REF11103 KD-REF11104 NRHS-REF11105
                AB-REF11106 LDAB-REF11107 B-REF11108 LDB-REF11109
                INFO-REF11110))))

(CFFI:DEFCFUN ("dtfsm_" %%DTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11116 ':INT32) (N-REF11117 ':INT32)
                              (ALPHA-REF11118 ':DOUBLE) (LDB-REF11121 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11116 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11117 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF11118 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11121 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11119 A) (B-REF11120 B))
      (%%DTFSM TRANSR SIDE UPLO TRANS DIAG M-REF11116 N-REF11117 ALPHA-REF11118
               A-REF11119 B-REF11120 LDB-REF11121))))

(CFFI:DEFCFUN ("dtftri_" %%DTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11125 ':INT32) (INFO-REF11127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11126 A))
      (%%DTFTRI TRANSR UPLO DIAG N-REF11125 A-REF11126 INFO-REF11127))))

(CFFI:DEFCFUN ("dtfttp_" %%DTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11130 ':INT32) (INFO-REF11133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11133 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11131 ARF) (AP-REF11132 AP))
      (%%DTFTTP TRANSR UPLO N-REF11130 ARF-REF11131 AP-REF11132
                INFO-REF11133))))

(CFFI:DEFCFUN ("dtfttr_" %%DTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11136 ':INT32) (LDA-REF11139 ':INT32)
                              (INFO-REF11140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11136 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11139 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11137 ARF) (A-REF11138 A))
      (%%DTFTTR TRANSR UPLO N-REF11136 ARF-REF11137 A-REF11138 LDA-REF11139
                INFO-REF11140))))

(CFFI:DEFCFUN ("dtgevc_" %%DTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11144 ':INT32) (LDS-REF11146 ':INT32)
                              (LDP-REF11148 ':INT32) (LDVL-REF11150 ':INT32)
                              (LDVR-REF11152 ':INT32) (MM-REF11153 ':INT32)
                              (M-REF11154 ':INT32) (INFO-REF11156 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF11146 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF11148 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11150 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11152 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11153 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11154 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11156 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11143 SELECT)
                                            (S-REF11145 S) (P-REF11147 P)
                                            (VL-REF11149 VL) (VR-REF11151 VR)
                                            (WORK-REF11155 WORK))
      (%%DTGEVC SIDE HOWMNY SELECT-REF11143 N-REF11144 S-REF11145 LDS-REF11146
                P-REF11147 LDP-REF11148 VL-REF11149 LDVL-REF11150 VR-REF11151
                LDVR-REF11152 MM-REF11153 M-REF11154 WORK-REF11155
                INFO-REF11156))))

(CFFI:DEFCFUN ("dtgex2_" %%DTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEX2
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11157 ':INT32) (WANTZ-REF11158 ':INT32)
                              (N-REF11159 ':INT32) (LDA-REF11161 ':INT32)
                              (LDB-REF11163 ':INT32) (LDQ-REF11165 ':INT32)
                              (LDZ-REF11167 ':INT32) (J1-REF11168 ':INT32)
                              (N1-REF11169 ':INT32) (N2-REF11170 ':INT32)
                              (LWORK-REF11172 ':INT32) (INFO-REF11173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11157 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11158 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11161 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11163 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11165 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11167 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF11168 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11169 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11170 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11172 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11160 A) (B-REF11162 B)
                                            (Q-REF11164 Q) (Z-REF11166 Z)
                                            (WORK-REF11171 WORK))
      (%%DTGEX2 WANTQ-REF11157 WANTZ-REF11158 N-REF11159 A-REF11160
                LDA-REF11161 B-REF11162 LDB-REF11163 Q-REF11164 LDQ-REF11165
                Z-REF11166 LDZ-REF11167 J1-REF11168 N1-REF11169 N2-REF11170
                WORK-REF11171 LWORK-REF11172 INFO-REF11173))))

(CFFI:DEFCFUN ("dtgexc_" %%DTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11174 ':INT32) (WANTZ-REF11175 ':INT32)
                              (N-REF11176 ':INT32) (LDA-REF11178 ':INT32)
                              (LDB-REF11180 ':INT32) (LDQ-REF11182 ':INT32)
                              (LDZ-REF11184 ':INT32) (IFST-REF11185 ':INT32)
                              (ILST-REF11186 ':INT32) (LWORK-REF11188 ':INT32)
                              (INFO-REF11189 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11174 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11175 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11178 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11180 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11182 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11184 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11185 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11186 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11188 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11189 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11177 A) (B-REF11179 B)
                                            (Q-REF11181 Q) (Z-REF11183 Z)
                                            (WORK-REF11187 WORK))
      (%%DTGEXC WANTQ-REF11174 WANTZ-REF11175 N-REF11176 A-REF11177
                LDA-REF11178 B-REF11179 LDB-REF11180 Q-REF11181 LDQ-REF11182
                Z-REF11183 LDZ-REF11184 IFST-REF11185 ILST-REF11186
                WORK-REF11187 LWORK-REF11188 INFO-REF11189))))

(CFFI:DEFCFUN ("dtgsen_" %%DTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11190 ':INT32) (WANTQ-REF11191 ':INT32)
                              (WANTZ-REF11192 ':INT32) (N-REF11194 ':INT32)
                              (LDA-REF11196 ':INT32) (LDB-REF11198 ':INT32)
                              (LDQ-REF11203 ':INT32) (LDZ-REF11205 ':INT32)
                              (M-REF11206 ':INT32) (PL-REF11207 ':DOUBLE)
                              (PR-REF11208 ':DOUBLE) (LWORK-REF11211 ':INT32)
                              (LIWORK-REF11213 ':INT32) (INFO-REF11214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11190 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11191 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11192 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11194 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11196 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11198 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11203 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11205 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11206 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF11207 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF11208 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11211 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11213 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11214 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11193 SELECT)
                                            (A-REF11195 A) (B-REF11197 B)
                                            (ALPHAR-REF11199 ALPHAR)
                                            (ALPHAI-REF11200 ALPHAI)
                                            (BETA-REF11201 BETA) (Q-REF11202 Q)
                                            (Z-REF11204 Z) (DIF-REF11209 DIF)
                                            (WORK-REF11210 WORK)
                                            (IWORK-REF11212 IWORK))
      (%%DTGSEN IJOB-REF11190 WANTQ-REF11191 WANTZ-REF11192 SELECT-REF11193
                N-REF11194 A-REF11195 LDA-REF11196 B-REF11197 LDB-REF11198
                ALPHAR-REF11199 ALPHAI-REF11200 BETA-REF11201 Q-REF11202
                LDQ-REF11203 Z-REF11204 LDZ-REF11205 M-REF11206 PL-REF11207
                PR-REF11208 DIF-REF11209 WORK-REF11210 LWORK-REF11211
                IWORK-REF11212 LIWORK-REF11213 INFO-REF11214))))

(CFFI:DEFCFUN ("dtgsja_" %%DTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11218 ':INT32) (P-REF11219 ':INT32)
                              (N-REF11220 ':INT32) (K-REF11221 ':INT32)
                              (L-REF11222 ':INT32) (LDA-REF11224 ':INT32)
                              (LDB-REF11226 ':INT32) (TOLA-REF11227 ':DOUBLE)
                              (TOLB-REF11228 ':DOUBLE) (LDU-REF11232 ':INT32)
                              (LDV-REF11234 ':INT32) (LDQ-REF11236 ':INT32)
                              (NCYCLE-REF11238 ':INT32) (INFO-REF11239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11218 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11219 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11220 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11221 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11222 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11224 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11226 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF11227 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF11228 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11232 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11234 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11236 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF11238 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11223 A) (B-REF11225 B)
                                            (ALPHA-REF11229 ALPHA)
                                            (BETA-REF11230 BETA) (U-REF11231 U)
                                            (V-REF11233 V) (Q-REF11235 Q)
                                            (WORK-REF11237 WORK))
      (%%DTGSJA JOBU JOBV JOBQ M-REF11218 P-REF11219 N-REF11220 K-REF11221
                L-REF11222 A-REF11223 LDA-REF11224 B-REF11225 LDB-REF11226
                TOLA-REF11227 TOLB-REF11228 ALPHA-REF11229 BETA-REF11230
                U-REF11231 LDU-REF11232 V-REF11233 LDV-REF11234 Q-REF11235
                LDQ-REF11236 WORK-REF11237 NCYCLE-REF11238 INFO-REF11239))))

(CFFI:DEFCFUN ("dtgsna_" %%DTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11243 ':INT32) (LDA-REF11245 ':INT32)
                              (LDB-REF11247 ':INT32) (LDVL-REF11249 ':INT32)
                              (LDVR-REF11251 ':INT32) (MM-REF11254 ':INT32)
                              (M-REF11255 ':INT32) (LWORK-REF11257 ':INT32)
                              (INFO-REF11259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11243 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11245 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11247 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11249 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11251 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11254 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11255 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11257 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11242 SELECT)
                                            (A-REF11244 A) (B-REF11246 B)
                                            (VL-REF11248 VL) (VR-REF11250 VR)
                                            (S-REF11252 S) (DIF-REF11253 DIF)
                                            (WORK-REF11256 WORK)
                                            (IWORK-REF11258 IWORK))
      (%%DTGSNA JOB HOWMNY SELECT-REF11242 N-REF11243 A-REF11244 LDA-REF11245
                B-REF11246 LDB-REF11247 VL-REF11248 LDVL-REF11249 VR-REF11250
                LDVR-REF11251 S-REF11252 DIF-REF11253 MM-REF11254 M-REF11255
                WORK-REF11256 LWORK-REF11257 IWORK-REF11258 INFO-REF11259))))

(CFFI:DEFCFUN ("dtgsy2_" %%DTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IWORK :POINTER)
  (PQ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL IWORK PQ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11261 ':INT32) (M-REF11262 ':INT32)
                              (N-REF11263 ':INT32) (LDA-REF11265 ':INT32)
                              (LDB-REF11267 ':INT32) (LDC-REF11269 ':INT32)
                              (LDD-REF11271 ':INT32) (LDE-REF11273 ':INT32)
                              (LDF-REF11275 ':INT32) (SCALE-REF11276 ':DOUBLE)
                              (RDSUM-REF11277 ':DOUBLE)
                              (RDSCAL-REF11278 ':DOUBLE) (PQ-REF11280 ':INT32)
                              (INFO-REF11281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11261 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11262 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11263 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11265 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11267 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11269 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11271 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11273 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11275 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11276 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF11277 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF11278 :DOUBLE) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF11280 :INT32) PQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11264 A) (B-REF11266 B)
                                            (C-REF11268 C) (D-REF11270 D)
                                            (E-REF11272 E) (F-REF11274 F)
                                            (IWORK-REF11279 IWORK))
      (%%DTGSY2 TRANS IJOB-REF11261 M-REF11262 N-REF11263 A-REF11264
                LDA-REF11265 B-REF11266 LDB-REF11267 C-REF11268 LDC-REF11269
                D-REF11270 LDD-REF11271 E-REF11272 LDE-REF11273 F-REF11274
                LDF-REF11275 SCALE-REF11276 RDSUM-REF11277 RDSCAL-REF11278
                IWORK-REF11279 PQ-REF11280 INFO-REF11281))))

(CFFI:DEFCFUN ("dtgsyl_" %%DTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11283 ':INT32) (M-REF11284 ':INT32)
                              (N-REF11285 ':INT32) (LDA-REF11287 ':INT32)
                              (LDB-REF11289 ':INT32) (LDC-REF11291 ':INT32)
                              (LDD-REF11293 ':INT32) (LDE-REF11295 ':INT32)
                              (LDF-REF11297 ':INT32) (SCALE-REF11298 ':DOUBLE)
                              (DIF-REF11299 ':DOUBLE) (LWORK-REF11301 ':INT32)
                              (INFO-REF11303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11283 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11284 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11289 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11291 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11293 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11295 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11297 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11298 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF11299 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11301 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11286 A) (B-REF11288 B)
                                            (C-REF11290 C) (D-REF11292 D)
                                            (E-REF11294 E) (F-REF11296 F)
                                            (WORK-REF11300 WORK)
                                            (IWORK-REF11302 IWORK))
      (%%DTGSYL TRANS IJOB-REF11283 M-REF11284 N-REF11285 A-REF11286
                LDA-REF11287 B-REF11288 LDB-REF11289 C-REF11290 LDC-REF11291
                D-REF11292 LDD-REF11293 E-REF11294 LDE-REF11295 F-REF11296
                LDF-REF11297 SCALE-REF11298 DIF-REF11299 WORK-REF11300
                LWORK-REF11301 IWORK-REF11302 INFO-REF11303))))

(CFFI:DEFCFUN ("dtpcon_" %%DTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPCON (NORM UPLO DIAG N AP RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11307 ':INT32) (RCOND-REF11309 ':DOUBLE)
                              (INFO-REF11312 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11307 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11309 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11312 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11308 AP)
                                            (WORK-REF11310 WORK)
                                            (IWORK-REF11311 IWORK))
      (%%DTPCON NORM UPLO DIAG N-REF11307 AP-REF11308 RCOND-REF11309
                WORK-REF11310 IWORK-REF11311 INFO-REF11312))))

(CFFI:DEFCFUN ("dtplqt_" %%DTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11313 ':INT32) (N-REF11314 ':INT32)
                              (L-REF11315 ':INT32) (MB-REF11316 ':INT32)
                              (LDA-REF11318 ':INT32) (LDB-REF11320 ':INT32)
                              (LDT-REF11322 ':INT32) (INFO-REF11324 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11313 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11314 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11315 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11316 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11318 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11320 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11322 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11324 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11317 A) (B-REF11319 B)
                                            (T-REF11321 T) (WORK-REF11323 WORK))
      (%%DTPLQT M-REF11313 N-REF11314 L-REF11315 MB-REF11316 A-REF11317
                LDA-REF11318 B-REF11319 LDB-REF11320 T-REF11321 LDT-REF11322
                WORK-REF11323 INFO-REF11324))))

(CFFI:DEFCFUN ("dtplqt2_" %%DTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11325 ':INT32) (N-REF11326 ':INT32)
                              (L-REF11327 ':INT32) (LDA-REF11329 ':INT32)
                              (LDB-REF11331 ':INT32) (LDT-REF11333 ':INT32)
                              (INFO-REF11334 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11325 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11327 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11331 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11333 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11334 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11328 A) (B-REF11330 B)
                                            (T-REF11332 T))
      (%%DTPLQT2 M-REF11325 N-REF11326 L-REF11327 A-REF11328 LDA-REF11329
                 B-REF11330 LDB-REF11331 T-REF11332 LDT-REF11333
                 INFO-REF11334))))

(CFFI:DEFCFUN ("dtpmlqt_" %%DTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11337 ':INT32) (N-REF11338 ':INT32)
                              (K-REF11339 ':INT32) (L-REF11340 ':INT32)
                              (MB-REF11341 ':INT32) (LDV-REF11343 ':INT32)
                              (LDT-REF11345 ':INT32) (LDA-REF11347 ':INT32)
                              (LDB-REF11349 ':INT32) (INFO-REF11351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11337 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11339 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11340 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11341 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11343 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11345 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11347 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11349 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11342 V) (T-REF11344 T)
                                            (A-REF11346 A) (B-REF11348 B)
                                            (WORK-REF11350 WORK))
      (%%DTPMLQT SIDE TRANS M-REF11337 N-REF11338 K-REF11339 L-REF11340
                 MB-REF11341 V-REF11342 LDV-REF11343 T-REF11344 LDT-REF11345
                 A-REF11346 LDA-REF11347 B-REF11348 LDB-REF11349 WORK-REF11350
                 INFO-REF11351))))

(CFFI:DEFCFUN ("dtpmqrt_" %%DTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11354 ':INT32) (N-REF11355 ':INT32)
                              (K-REF11356 ':INT32) (L-REF11357 ':INT32)
                              (NB-REF11358 ':INT32) (LDV-REF11360 ':INT32)
                              (LDT-REF11362 ':INT32) (LDA-REF11364 ':INT32)
                              (LDB-REF11366 ':INT32) (INFO-REF11368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11354 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11355 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11356 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11357 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11358 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11360 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11362 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11364 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11366 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11368 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11359 V) (T-REF11361 T)
                                            (A-REF11363 A) (B-REF11365 B)
                                            (WORK-REF11367 WORK))
      (%%DTPMQRT SIDE TRANS M-REF11354 N-REF11355 K-REF11356 L-REF11357
                 NB-REF11358 V-REF11359 LDV-REF11360 T-REF11361 LDT-REF11362
                 A-REF11363 LDA-REF11364 B-REF11365 LDB-REF11366 WORK-REF11367
                 INFO-REF11368))))

(CFFI:DEFCFUN ("dtpqrt_" %%DTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11369 ':INT32) (N-REF11370 ':INT32)
                              (L-REF11371 ':INT32) (NB-REF11372 ':INT32)
                              (LDA-REF11374 ':INT32) (LDB-REF11376 ':INT32)
                              (LDT-REF11378 ':INT32) (INFO-REF11380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11369 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11371 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11372 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11374 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11376 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11378 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11373 A) (B-REF11375 B)
                                            (T-REF11377 T) (WORK-REF11379 WORK))
      (%%DTPQRT M-REF11369 N-REF11370 L-REF11371 NB-REF11372 A-REF11373
                LDA-REF11374 B-REF11375 LDB-REF11376 T-REF11377 LDT-REF11378
                WORK-REF11379 INFO-REF11380))))

(CFFI:DEFCFUN ("dtpqrt2_" %%DTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11381 ':INT32) (N-REF11382 ':INT32)
                              (L-REF11383 ':INT32) (LDA-REF11385 ':INT32)
                              (LDB-REF11387 ':INT32) (LDT-REF11389 ':INT32)
                              (INFO-REF11390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11381 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11383 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11387 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11389 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11390 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11384 A) (B-REF11386 B)
                                            (T-REF11388 T))
      (%%DTPQRT2 M-REF11381 N-REF11382 L-REF11383 A-REF11384 LDA-REF11385
                 B-REF11386 LDB-REF11387 T-REF11388 LDT-REF11389
                 INFO-REF11390))))

(CFFI:DEFCFUN ("dtprfb_" %%DTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11395 ':INT32) (N-REF11396 ':INT32)
                              (K-REF11397 ':INT32) (L-REF11398 ':INT32)
                              (LDV-REF11400 ':INT32) (LDT-REF11402 ':INT32)
                              (LDA-REF11404 ':INT32) (LDB-REF11406 ':INT32)
                              (LDWORK-REF11408 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11395 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11397 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11398 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11400 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11402 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11404 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11406 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11408 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11399 V) (T-REF11401 T)
                                            (A-REF11403 A) (B-REF11405 B)
                                            (WORK-REF11407 WORK))
      (%%DTPRFB SIDE TRANS DIRECT STOREV M-REF11395 N-REF11396 K-REF11397
                L-REF11398 V-REF11399 LDV-REF11400 T-REF11401 LDT-REF11402
                A-REF11403 LDA-REF11404 B-REF11405 LDB-REF11406 WORK-REF11407
                LDWORK-REF11408))))

(CFFI:DEFCFUN ("dtprfs_" %%DTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11412 ':INT32) (NRHS-REF11413 ':INT32)
                              (LDB-REF11416 ':INT32) (LDX-REF11418 ':INT32)
                              (INFO-REF11423 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11413 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11416 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11418 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11423 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11414 AP) (B-REF11415 B)
                                            (X-REF11417 X) (FERR-REF11419 FERR)
                                            (BERR-REF11420 BERR)
                                            (WORK-REF11421 WORK)
                                            (IWORK-REF11422 IWORK))
      (%%DTPRFS UPLO TRANS DIAG N-REF11412 NRHS-REF11413 AP-REF11414 B-REF11415
                LDB-REF11416 X-REF11417 LDX-REF11418 FERR-REF11419
                BERR-REF11420 WORK-REF11421 IWORK-REF11422 INFO-REF11423))))

(CFFI:DEFCFUN ("dtptri_" %%DTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11426 ':INT32) (INFO-REF11428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11426 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11428 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11427 AP))
      (%%DTPTRI UPLO DIAG N-REF11426 AP-REF11427 INFO-REF11428))))

(CFFI:DEFCFUN ("dtptrs_" %%DTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11432 ':INT32) (NRHS-REF11433 ':INT32)
                              (LDB-REF11436 ':INT32) (INFO-REF11437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11432 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11433 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11436 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11434 AP) (B-REF11435 B))
      (%%DTPTRS UPLO TRANS DIAG N-REF11432 NRHS-REF11433 AP-REF11434 B-REF11435
                LDB-REF11436 INFO-REF11437))))

(CFFI:DEFCFUN ("dtpttf_" %%DTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11440 ':INT32) (INFO-REF11443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11441 AP) (ARF-REF11442 ARF))
      (%%DTPTTF TRANSR UPLO N-REF11440 AP-REF11441 ARF-REF11442
                INFO-REF11443))))

(CFFI:DEFCFUN ("dtpttr_" %%DTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11445 ':INT32) (LDA-REF11448 ':INT32)
                              (INFO-REF11449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11445 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11448 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11446 AP) (A-REF11447 A))
      (%%DTPTTR UPLO N-REF11445 AP-REF11446 A-REF11447 LDA-REF11448
                INFO-REF11449))))

(CFFI:DEFCFUN ("dtrcon_" %%DTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRCON (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11453 ':INT32) (LDA-REF11455 ':INT32)
                              (RCOND-REF11456 ':DOUBLE) (INFO-REF11459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11455 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11456 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11459 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11454 A) (WORK-REF11457 WORK)
                                            (IWORK-REF11458 IWORK))
      (%%DTRCON NORM UPLO DIAG N-REF11453 A-REF11454 LDA-REF11455
                RCOND-REF11456 WORK-REF11457 IWORK-REF11458 INFO-REF11459))))

(CFFI:DEFCFUN ("dtrevc_" %%DTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11463 ':INT32) (LDT-REF11465 ':INT32)
                              (LDVL-REF11467 ':INT32) (LDVR-REF11469 ':INT32)
                              (MM-REF11470 ':INT32) (M-REF11471 ':INT32)
                              (INFO-REF11473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11465 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11467 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11469 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11470 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11471 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11473 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11462 SELECT)
                                            (T-REF11464 T) (VL-REF11466 VL)
                                            (VR-REF11468 VR)
                                            (WORK-REF11472 WORK))
      (%%DTREVC SIDE HOWMNY SELECT-REF11462 N-REF11463 T-REF11464 LDT-REF11465
                VL-REF11466 LDVL-REF11467 VR-REF11468 LDVR-REF11469 MM-REF11470
                M-REF11471 WORK-REF11472 INFO-REF11473))))

(CFFI:DEFCFUN ("dtrevc3_" %%DTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11477 ':INT32) (LDT-REF11479 ':INT32)
                              (LDVL-REF11481 ':INT32) (LDVR-REF11483 ':INT32)
                              (MM-REF11484 ':INT32) (M-REF11485 ':INT32)
                              (LWORK-REF11487 ':INT32) (INFO-REF11488 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11479 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11481 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11483 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11484 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11485 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11487 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11488 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11476 SELECT)
                                            (T-REF11478 T) (VL-REF11480 VL)
                                            (VR-REF11482 VR)
                                            (WORK-REF11486 WORK))
      (%%DTREVC3 SIDE HOWMNY SELECT-REF11476 N-REF11477 T-REF11478 LDT-REF11479
                 VL-REF11480 LDVL-REF11481 VR-REF11482 LDVR-REF11483
                 MM-REF11484 M-REF11485 WORK-REF11486 LWORK-REF11487
                 INFO-REF11488))))

(CFFI:DEFCFUN ("dtrexc_" %%DTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11490 ':INT32) (LDT-REF11492 ':INT32)
                              (LDQ-REF11494 ':INT32) (IFST-REF11495 ':INT32)
                              (ILST-REF11496 ':INT32) (INFO-REF11498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11490 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11492 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11494 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11495 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11496 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF11491 T) (Q-REF11493 Q)
                                            (WORK-REF11497 WORK))
      (%%DTREXC COMPQ N-REF11490 T-REF11491 LDT-REF11492 Q-REF11493
                LDQ-REF11494 IFST-REF11495 ILST-REF11496 WORK-REF11497
                INFO-REF11498))))

(CFFI:DEFCFUN ("dtrrfs_" %%DTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11502 ':INT32) (NRHS-REF11503 ':INT32)
                              (LDA-REF11505 ':INT32) (LDB-REF11507 ':INT32)
                              (LDX-REF11509 ':INT32) (INFO-REF11514 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11502 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11503 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11505 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11507 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11509 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11514 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11504 A) (B-REF11506 B)
                                            (X-REF11508 X) (FERR-REF11510 FERR)
                                            (BERR-REF11511 BERR)
                                            (WORK-REF11512 WORK)
                                            (IWORK-REF11513 IWORK))
      (%%DTRRFS UPLO TRANS DIAG N-REF11502 NRHS-REF11503 A-REF11504
                LDA-REF11505 B-REF11506 LDB-REF11507 X-REF11508 LDX-REF11509
                FERR-REF11510 BERR-REF11511 WORK-REF11512 IWORK-REF11513
                INFO-REF11514))))

(CFFI:DEFCFUN ("dtrsen_" %%DTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11518 ':INT32) (LDT-REF11520 ':INT32)
                              (LDQ-REF11522 ':INT32) (M-REF11525 ':INT32)
                              (S-REF11526 ':DOUBLE) (SEP-REF11527 ':DOUBLE)
                              (LWORK-REF11529 ':INT32)
                              (LIWORK-REF11531 ':INT32) (INFO-REF11532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11520 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11522 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11525 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF11526 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF11527 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11529 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11531 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11517 SELECT)
                                            (T-REF11519 T) (Q-REF11521 Q)
                                            (WR-REF11523 WR) (WI-REF11524 WI)
                                            (WORK-REF11528 WORK)
                                            (IWORK-REF11530 IWORK))
      (%%DTRSEN JOB COMPQ SELECT-REF11517 N-REF11518 T-REF11519 LDT-REF11520
                Q-REF11521 LDQ-REF11522 WR-REF11523 WI-REF11524 M-REF11525
                S-REF11526 SEP-REF11527 WORK-REF11528 LWORK-REF11529
                IWORK-REF11530 LIWORK-REF11531 INFO-REF11532))))

(CFFI:DEFCFUN ("dtrsna_" %%DTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11536 ':INT32) (LDT-REF11538 ':INT32)
                              (LDVL-REF11540 ':INT32) (LDVR-REF11542 ':INT32)
                              (MM-REF11545 ':INT32) (M-REF11546 ':INT32)
                              (LDWORK-REF11548 ':INT32) (INFO-REF11550 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11538 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11540 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11542 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11545 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11546 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11548 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11550 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11535 SELECT)
                                            (T-REF11537 T) (VL-REF11539 VL)
                                            (VR-REF11541 VR) (S-REF11543 S)
                                            (SEP-REF11544 SEP)
                                            (WORK-REF11547 WORK)
                                            (IWORK-REF11549 IWORK))
      (%%DTRSNA JOB HOWMNY SELECT-REF11535 N-REF11536 T-REF11537 LDT-REF11538
                VL-REF11539 LDVL-REF11540 VR-REF11541 LDVR-REF11542 S-REF11543
                SEP-REF11544 MM-REF11545 M-REF11546 WORK-REF11547
                LDWORK-REF11548 IWORK-REF11549 INFO-REF11550))))

(CFFI:DEFCFUN ("dtrsyl_" %%DTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF11553 ':INT32) (M-REF11554 ':INT32)
                              (N-REF11555 ':INT32) (LDA-REF11557 ':INT32)
                              (LDB-REF11559 ':INT32) (LDC-REF11561 ':INT32)
                              (SCALE-REF11562 ':DOUBLE) (INFO-REF11563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF11553 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11554 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11559 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11561 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11562 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11556 A) (B-REF11558 B)
                                            (C-REF11560 C))
      (%%DTRSYL TRANA TRANB ISGN-REF11553 M-REF11554 N-REF11555 A-REF11556
                LDA-REF11557 B-REF11558 LDB-REF11559 C-REF11560 LDC-REF11561
                SCALE-REF11562 INFO-REF11563))))

(CFFI:DEFCFUN ("dtrti2_" %%DTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11566 ':INT32) (LDA-REF11568 ':INT32)
                              (INFO-REF11569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11568 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11567 A))
      (%%DTRTI2 UPLO DIAG N-REF11566 A-REF11567 LDA-REF11568 INFO-REF11569))))

(CFFI:DEFCFUN ("dtrtri_" %%DTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11572 ':INT32) (LDA-REF11574 ':INT32)
                              (INFO-REF11575 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11574 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11575 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11573 A))
      (%%DTRTRI UPLO DIAG N-REF11572 A-REF11573 LDA-REF11574 INFO-REF11575))))

(CFFI:DEFCFUN ("dtrtrs_" %%DTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11579 ':INT32) (NRHS-REF11580 ':INT32)
                              (LDA-REF11582 ':INT32) (LDB-REF11584 ':INT32)
                              (INFO-REF11585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11580 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11582 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11584 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11585 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11581 A) (B-REF11583 B))
      (%%DTRTRS UPLO TRANS DIAG N-REF11579 NRHS-REF11580 A-REF11581
                LDA-REF11582 B-REF11583 LDB-REF11584 INFO-REF11585))))

(CFFI:DEFCFUN ("dtrttf_" %%DTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11588 ':INT32) (LDA-REF11590 ':INT32)
                              (INFO-REF11592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11588 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11590 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11589 A) (ARF-REF11591 ARF))
      (%%DTRTTF TRANSR UPLO N-REF11588 A-REF11589 LDA-REF11590 ARF-REF11591
                INFO-REF11592))))

(CFFI:DEFCFUN ("dtrttp_" %%DTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11594 ':INT32) (LDA-REF11596 ':INT32)
                              (INFO-REF11598 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11598 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11595 A) (AP-REF11597 AP))
      (%%DTRTTP UPLO N-REF11594 A-REF11595 LDA-REF11596 AP-REF11597
                INFO-REF11598))))

(CFFI:DEFCFUN ("dtzrzf_" %%DTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11599 ':INT32) (N-REF11600 ':INT32)
                              (LDA-REF11602 ':INT32) (LWORK-REF11605 ':INT32)
                              (INFO-REF11606 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11599 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11600 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11602 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11605 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11606 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11601 A) (TAU-REF11603 TAU)
                                            (WORK-REF11604 WORK))
      (%%DTZRZF M-REF11599 N-REF11600 A-REF11601 LDA-REF11602 TAU-REF11603
                WORK-REF11604 LWORK-REF11605 INFO-REF11606))))

(CFFI:DEFCFUN ("dzsum1_" %%DZSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZSUM1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11607 ':INT32) (INCX-REF11609 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11609 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11608 CX))
      (%%DZSUM1 N-REF11607 CX-REF11608 INCX-REF11609))))

(CFFI:DEFCFUN ("icmax1_" %%ICMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ICMAX1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ICMAX1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11610 ':INT32) (INCX-REF11612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11612 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11611 CX))
      (%%ICMAX1 N-REF11610 CX-REF11611 INCX-REF11612))))

(CFFI:DEFCFUN ("ieeeck_" %%IEEECK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (ZERO :POINTER)
  (ONE :POINTER))

(COMMON-LISP:DEFUN %IEEECK (ISPEC ZERO ONE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IEEECK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZERO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ONE))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11613 ':INT32) (ZERO-REF11614 ':FLOAT)
                              (ONE-REF11615 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11613 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZERO-REF11614 :FLOAT) ZERO)
    (COMMON-LISP:SETF (CFFI:MEM-REF ONE-REF11615 :FLOAT) ONE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%IEEECK ISPEC-REF11613 ZERO-REF11614 ONE-REF11615))))

(CFFI:DEFCFUN ("ilaclc_" %%ILACLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILACLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11616 ':INT32) (N-REF11617 ':INT32)
                              (LDA-REF11619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11616 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11619 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11618 A))
      (%%ILACLC M-REF11616 N-REF11617 A-REF11618 LDA-REF11619))))

(CFFI:DEFCFUN ("ilaclr_" %%ILACLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILACLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILACLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11620 ':INT32) (N-REF11621 ':INT32)
                              (LDA-REF11623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11620 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11623 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11622 A))
      (%%ILACLR M-REF11620 N-REF11621 A-REF11622 LDA-REF11623))))

(CFFI:DEFCFUN ("iladiag_" %%ILADIAG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (DIAG :STRING))

(COMMON-LISP:DEFUN %ILADIAG (DIAG)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILADIAG DIAG))))

(CFFI:DEFCFUN ("iladlc_" %%ILADLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILADLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11625 ':INT32) (N-REF11626 ':INT32)
                              (LDA-REF11628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11625 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11626 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11628 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11627 A))
      (%%ILADLC M-REF11625 N-REF11626 A-REF11627 LDA-REF11628))))

(CFFI:DEFCFUN ("iladlr_" %%ILADLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILADLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11629 ':INT32) (N-REF11630 ':INT32)
                              (LDA-REF11632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11629 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11632 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11631 A))
      (%%ILADLR M-REF11629 N-REF11630 A-REF11631 LDA-REF11632))))

(CFFI:DEFCFUN ("ilaenv_" %%ILAENV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N1 :POINTER)
  (N2 :POINTER)
  (N3 :POINTER)
  (N4 :POINTER))

(COMMON-LISP:DEFUN %ILAENV (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11633 ':INT32) (N1-REF11636 ':INT32)
                              (N2-REF11637 ':INT32) (N3-REF11638 ':INT32)
                              (N4-REF11639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11633 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11636 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11637 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11638 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11639 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV ISPEC-REF11633 NAME OPTS N1-REF11636 N2-REF11637 N3-REF11638
                N4-REF11639))))

(CFFI:DEFCFUN ("ilaenv2stage_" %%ILAENV2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N1 :POINTER)
  (N2 :POINTER)
  (N3 :POINTER)
  (N4 :POINTER))

(COMMON-LISP:DEFUN %ILAENV2STAGE (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11640 ':INT32) (N1-REF11643 ':INT32)
                              (N2-REF11644 ':INT32) (N3-REF11645 ':INT32)
                              (N4-REF11646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11640 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11643 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11644 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11645 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11646 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV2STAGE ISPEC-REF11640 NAME OPTS N1-REF11643 N2-REF11644
                      N3-REF11645 N4-REF11646))))

(CFFI:DEFCFUN ("ilaprec_" %%ILAPREC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (PREC :STRING))

(COMMON-LISP:DEFUN %ILAPREC (PREC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAPREC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PREC))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAPREC PREC))))

(CFFI:DEFCFUN ("ilaslc_" %%ILASLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILASLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILASLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11648 ':INT32) (N-REF11649 ':INT32)
                              (LDA-REF11651 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11648 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11649 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11651 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11650 A))
      (%%ILASLC M-REF11648 N-REF11649 A-REF11650 LDA-REF11651))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%DLASWP %DLASWP %%DLASY2 %DLASY2 %%DLASYF %DLASYF
  %%DLASYF_AA %DLASYF_AA %%DLASYF_RK %DLASYF_RK %%DLASYF_ROOK %DLASYF_ROOK
  %%DLAT2S %DLAT2S %%DLATBS %DLATBS %%DLATDF %DLATDF %%DLATPS %DLATPS %%DLATRD
  %DLATRD %%DLATRS %DLATRS %%DLATRZ %DLATRZ %%DLATSQR %DLATSQR %%DLAUU2 %DLAUU2
  %%DLAUUM %DLAUUM %%DOPGTR %DOPGTR %%DOPMTR %DOPMTR %%DORBDB %DORBDB %%DORBDB1
  %DORBDB1 %%DORBDB2 %DORBDB2 %%DORBDB3 %DORBDB3 %%DORBDB4 %DORBDB4 %%DORBDB5
  %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1
  %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2
  %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2
  %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R
  %DORM2R %%DORMBR %DORMBR %%DORMHR %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ
  %%DORMQL %DORMQL %%DORMQR %DORMQR %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ
  %DORMRQ %%DORMRZ %DORMRZ %%DORMTR %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU
  %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2
  %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI
  %%DPFTRS %DPFTRS %%DPOCON %DPOCON %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB
  %%DPORFS %DPORFS %%DPORFSX %DPORFSX %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX
  %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI
  %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS
  %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS
  %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF %%DPTCON %DPTCON %%DPTEQR %DPTEQR
  %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS
  %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL %%DSB2ST_KERNELS %DSB2ST_KERNELS
  %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE %%DSBEVD %DSBEVD %%DSBEVD_2STAGE
  %DSBEVD_2STAGE %%DSBEVX %DSBEVX %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST
  %DSBGST %%DSBGV %DSBGV %%DSBGVD %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD
  %%DSFRK %DSFRK %%DSGESV %DSGESV %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD
  %DSPEVD %%DSPEVX %DSPEVX %%DSPGST %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD
  %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX
  %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS
  %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR
  %DSTEMR %%DSTEQR %DSTEQR %%DSTERF %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD
  %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3
  %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV %DSYCONV %%DSYCONVF %DSYCONVF
  %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV
  %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD %%DSYEVD_2STAGE %DSYEVD_2STAGE
  %%DSYEVR %DSYEVR %%DSYEVR_2STAGE %DSYEVR_2STAGE %%DSYEVX %DSYEVX
  %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 %DSYGS2 %%DSYGST %DSYGST %%DSYGV
  %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD %DSYGVD %%DSYGVX %DSYGVX
  %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV %%DSYSV_AA %DSYSV_AA
  %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK %%DSYSV_ROOK
  %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR %DSYSWAPR %%DSYTD2
  %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK %%DSYTF2_ROOK %DSYTF2_ROOK
  %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE %%DSYTRD_SY2SB %DSYTRD_SY2SB
  %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE
  %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2
  %DSYTRI2 %%DSYTRI2X %DSYTRI2X %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X
  %%DSYTRI_ROOK %DSYTRI_ROOK %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3
  %DSYTRS_3 %%DSYTRS_AA %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE
  %%DSYTRS_ROOK %DSYTRS_ROOK %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS
  %%DTFSM %DTFSM %%DTFTRI %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC
  %DTGEVC %%DTGEX2 %DTGEX2 %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA
  %%DTGSNA %DTGSNA %%DTGSY2 %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT
  %DTPLQT %%DTPLQT2 %DTPLQT2 %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT
  %DTPQRT %%DTPQRT2 %DTPQRT2 %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI
  %%DTPTRS %DTPTRS %%DTPTTF %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC
  %DTREVC %%DTREVC3 %DTREVC3 %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN
  %%DTRSNA %DTRSNA %%DTRSYL %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS
  %DTRTRS %%DTRTTF %DTRTTF %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1
  %%ICMAX1 %ICMAX1 %%IEEECK %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG
  %ILADIAG %%ILADLC %ILADLC %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE
  %ILAENV2STAGE %%ILAPREC %ILAPREC %%ILASLC %ILASLC))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP)
                      ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2)
                      ("DLASYF" "dlasyf_" %%DLASYF %DLASYF)
                      ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA %DLASYF_AA)
                      ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK %DLASYF_RK)
                      ("DLASYF_ROOK" "dlasyf_rook_" %%DLASYF_ROOK %DLASYF_ROOK)
                      ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S)
                      ("DLATBS" "dlatbs_" %%DLATBS %DLATBS)
                      ("DLATDF" "dlatdf_" %%DLATDF %DLATDF)
                      ("DLATPS" "dlatps_" %%DLATPS %DLATPS)
                      ("DLATRD" "dlatrd_" %%DLATRD %DLATRD)
                      ("DLATRS" "dlatrs_" %%DLATRS %DLATRS)
                      ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ)
                      ("DLATSQR" "dlatsqr_" %%DLATSQR %DLATSQR)
                      ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2)
                      ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM)
                      ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR)
                      ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR)
                      ("DORBDB" "dorbdb_" %%DORBDB %DORBDB)
                      ("DORBDB1" "dorbdb1_" %%DORBDB1 %DORBDB1)
                      ("DORBDB2" "dorbdb2_" %%DORBDB2 %DORBDB2)
                      ("DORBDB3" "dorbdb3_" %%DORBDB3 %DORBDB3)
                      ("DORBDB4" "dorbdb4_" %%DORBDB4 %DORBDB4)
                      ("DORBDB5" "dorbdb5_" %%DORBDB5 %DORBDB5)
                      ("DORBDB6" "dorbdb6_" %%DORBDB6 %DORBDB6)
                      ("DORCSD" "dorcsd_" %%DORCSD %DORCSD)
                      ("DORCSD2BY1" "dorcsd2by1_" %%DORCSD2BY1 %DORCSD2BY1)
                      ("DORG2L" "dorg2l_" %%DORG2L %DORG2L)
                      ("DORG2R" "dorg2r_" %%DORG2R %DORG2R)
                      ("DORGBR" "dorgbr_" %%DORGBR %DORGBR)
                      ("DORGHR" "dorghr_" %%DORGHR %DORGHR)
                      ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2)
                      ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ)
                      ("DORGQL" "dorgql_" %%DORGQL %DORGQL)
                      ("DORGQR" "dorgqr_" %%DORGQR %DORGQR)
                      ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2)
                      ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ)
                      ("DORGTR" "dorgtr_" %%DORGTR %DORGTR)
                      ("DORM22" "dorm22_" %%DORM22 %DORM22)
                      ("DORM2L" "dorm2l_" %%DORM2L %DORM2L)
                      ("DORM2R" "dorm2r_" %%DORM2R %DORM2R)
                      ("DORMBR" "dormbr_" %%DORMBR %DORMBR)
                      ("DORMHR" "dormhr_" %%DORMHR %DORMHR)
                      ("DORML2" "dorml2_" %%DORML2 %DORML2)
                      ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ)
                      ("DORMQL" "dormql_" %%DORMQL %DORMQL)
                      ("DORMQR" "dormqr_" %%DORMQR %DORMQR)
                      ("DORMR2" "dormr2_" %%DORMR2 %DORMR2)
                      ("DORMR3" "dormr3_" %%DORMR3 %DORMR3)
                      ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ)
                      ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ)
                      ("DORMTR" "dormtr_" %%DORMTR %DORMTR)
                      ("DPBCON" "dpbcon_" %%DPBCON %DPBCON)
                      ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU)
                      ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS)
                      ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF)
                      ("DPBSV" "dpbsv_" %%DPBSV %DPBSV)
                      ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX)
                      ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2)
                      ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF)
                      ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS)
                      ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF)
                      ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI)
                      ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS)
                      ("DPOCON" "dpocon_" %%DPOCON %DPOCON)
                      ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU)
                      ("DPOEQUB" "dpoequb_" %%DPOEQUB %DPOEQUB)
                      ("DPORFS" "dporfs_" %%DPORFS %DPORFS)
                      ("DPORFSX" "dporfsx_" %%DPORFSX %DPORFSX)
                      ("DPOSV" "dposv_" %%DPOSV %DPOSV)
                      ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX)
                      ("DPOSVXX" "dposvxx_" %%DPOSVXX %DPOSVXX)
                      ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2)
                      ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF)
                      ("DPOTRF2" "dpotrf2_" %%DPOTRF2 %DPOTRF2)
                      ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI)
                      ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS)
                      ("DPPCON" "dppcon_" %%DPPCON %DPPCON)
                      ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU)
                      ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS)
                      ("DPPSV" "dppsv_" %%DPPSV %DPPSV)
                      ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX)
                      ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF)
                      ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI)
                      ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS)
                      ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2)
                      ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF)
                      ("DPTCON" "dptcon_" %%DPTCON %DPTCON)
                      ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR)
                      ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS)
                      ("DPTSV" "dptsv_" %%DPTSV %DPTSV)
                      ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX)
                      ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF)
                      ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS)
                      ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2)
                      ("DRSCL" "drscl_" %%DRSCL %DRSCL)
                      ("DSB2ST_KERNELS" "dsb2st_kernels_" %%DSB2ST_KERNELS
                       %DSB2ST_KERNELS)
                      ("DSBEV" "dsbev_" %%DSBEV %DSBEV)
                      ("DSBEV_2STAGE" "dsbev_2stage_" %%DSBEV_2STAGE
                       %DSBEV_2STAGE)
                      ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD)
                      ("DSBEVD_2STAGE" "dsbevd_2stage_" %%DSBEVD_2STAGE
                       %DSBEVD_2STAGE)
                      ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX)
                      ("DSBEVX_2STAGE" "dsbevx_2stage_" %%DSBEVX_2STAGE
                       %DSBEVX_2STAGE)
                      ("DSBGST" "dsbgst_" %%DSBGST %DSBGST)
                      ("DSBGV" "dsbgv_" %%DSBGV %DSBGV)
                      ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD)
                      ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX)
                      ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD)
                      ("DSFRK" "dsfrk_" %%DSFRK %DSFRK)
                      ("DSGESV" "dsgesv_" %%DSGESV %DSGESV)
                      ("DSPCON" "dspcon_" %%DSPCON %DSPCON)
                      ("DSPEV" "dspev_" %%DSPEV %DSPEV)
                      ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD)
                      ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX)
                      ("DSPGST" "dspgst_" %%DSPGST %DSPGST)
                      ("DSPGV" "dspgv_" %%DSPGV %DSPGV)
                      ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD)
                      ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX)
                      ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV)
                      ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS)
                      ("DSPSV" "dspsv_" %%DSPSV %DSPSV)
                      ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX)
                      ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD)
                      ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF)
                      ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI)
                      ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS)
                      ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ)
                      ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC)
                      ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR)
                      ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN)
                      ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR)
                      ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR)
                      ("DSTERF" "dsterf_" %%DSTERF %DSTERF)
                      ("DSTEV" "dstev_" %%DSTEV %DSTEV)
                      ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD)
                      ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR)
                      ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX)
                      ("DSYCON" "dsycon_" %%DSYCON %DSYCON)
                      ("DSYCON_3" "dsycon_3_" %%DSYCON_3 %DSYCON_3)
                      ("DSYCON_ROOK" "dsycon_rook_" %%DSYCON_ROOK %DSYCON_ROOK)
                      ("DSYCONV" "dsyconv_" %%DSYCONV %DSYCONV)
                      ("DSYCONVF" "dsyconvf_" %%DSYCONVF %DSYCONVF)
                      ("DSYCONVF_ROOK" "dsyconvf_rook_" %%DSYCONVF_ROOK
                       %DSYCONVF_ROOK)
                      ("DSYEQUB" "dsyequb_" %%DSYEQUB %DSYEQUB)
                      ("DSYEV" "dsyev_" %%DSYEV %DSYEV)
                      ("DSYEV_2STAGE" "dsyev_2stage_" %%DSYEV_2STAGE
                       %DSYEV_2STAGE)
                      ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD)
                      ("DSYEVD_2STAGE" "dsyevd_2stage_" %%DSYEVD_2STAGE
                       %DSYEVD_2STAGE)
                      ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR)
                      ("DSYEVR_2STAGE" "dsyevr_2stage_" %%DSYEVR_2STAGE
                       %DSYEVR_2STAGE)
                      ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX)
                      ("DSYEVX_2STAGE" "dsyevx_2stage_" %%DSYEVX_2STAGE
                       %DSYEVX_2STAGE)
                      ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2)
                      ("DSYGST" "dsygst_" %%DSYGST %DSYGST)
                      ("DSYGV" "dsygv_" %%DSYGV %DSYGV)
                      ("DSYGV_2STAGE" "dsygv_2stage_" %%DSYGV_2STAGE
                       %DSYGV_2STAGE)
                      ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD)
                      ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX)
                      ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS)
                      ("DSYRFSX" "dsyrfsx_" %%DSYRFSX %DSYRFSX)
                      ("DSYSV" "dsysv_" %%DSYSV %DSYSV)
                      ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA %DSYSV_AA)
                      ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_" %%DSYSV_AA_2STAGE
                       %DSYSV_AA_2STAGE)
                      ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK %DSYSV_RK)
                      ("DSYSV_ROOK" "dsysv_rook_" %%DSYSV_ROOK %DSYSV_ROOK)
                      ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX)
                      ("DSYSVXX" "dsysvxx_" %%DSYSVXX %DSYSVXX)
                      ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR %DSYSWAPR)
                      ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2)
                      ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2)
                      ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK %DSYTF2_RK)
                      ("DSYTF2_ROOK" "dsytf2_rook_" %%DSYTF2_ROOK %DSYTF2_ROOK)
                      ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD)
                      ("DSYTRD_2STAGE" "dsytrd_2stage_" %%DSYTRD_2STAGE
                       %DSYTRD_2STAGE)
                      ("DSYTRD_SY2SB" "dsytrd_sy2sb_" %%DSYTRD_SY2SB
                       %DSYTRD_SY2SB)
                      ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF)
                      ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA %DSYTRF_AA)
                      ("DSYTRF_AA_2STAGE" "dsytrf_aa_2stage_"
                       %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE)
                      ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK %DSYTRF_RK)
                      ("DSYTRF_ROOK" "dsytrf_rook_" %%DSYTRF_ROOK %DSYTRF_ROOK)
                      ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI)
                      ("DSYTRI2" "dsytri2_" %%DSYTRI2 %DSYTRI2)
                      ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X %DSYTRI2X)
                      ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 %DSYTRI_3)
                      ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X %DSYTRI_3X)
                      ("DSYTRI_ROOK" "dsytri_rook_" %%DSYTRI_ROOK %DSYTRI_ROOK)
                      ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS)
                      ("DSYTRS2" "dsytrs2_" %%DSYTRS2 %DSYTRS2)
                      ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 %DSYTRS_3)
                      ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA %DSYTRS_AA)
                      ("DSYTRS_AA_2STAGE" "dsytrs_aa_2stage_"
                       %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE)
                      ("DSYTRS_ROOK" "dsytrs_rook_" %%DSYTRS_ROOK %DSYTRS_ROOK)
                      ("DTBCON" "dtbcon_" %%DTBCON %DTBCON)
                      ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS)
                      ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS)
                      ("DTFSM" "dtfsm_" %%DTFSM %DTFSM)
                      ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI)
                      ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP)
                      ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR)
                      ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC)
                      ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2)
                      ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC)
                      ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN)
                      ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA)
                      ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA)
                      ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2)
                      ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL)
                      ("DTPCON" "dtpcon_" %%DTPCON %DTPCON)
                      ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT)
                      ("DTPLQT2" "dtplqt2_" %%DTPLQT2 %DTPLQT2)
                      ("DTPMLQT" "dtpmlqt_" %%DTPMLQT %DTPMLQT)
                      ("DTPMQRT" "dtpmqrt_" %%DTPMQRT %DTPMQRT)
                      ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT)
                      ("DTPQRT2" "dtpqrt2_" %%DTPQRT2 %DTPQRT2)
                      ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB)
                      ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS)
                      ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI)
                      ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS)
                      ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF)
                      ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR)
                      ("DTRCON" "dtrcon_" %%DTRCON %DTRCON)
                      ("DTREVC" "dtrevc_" %%DTREVC %DTREVC)
                      ("DTREVC3" "dtrevc3_" %%DTREVC3 %DTREVC3)
                      ("DTREXC" "dtrexc_" %%DTREXC %DTREXC)
                      ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS)
                      ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN)
                      ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA)
                      ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL)
                      ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2)
                      ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI)
                      ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS)
                      ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF)
                      ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP)
                      ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF)
                      ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1)
                      ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1)
                      ("IEEECK" "ieeeck_" %%IEEECK %IEEECK)
                      ("ILACLC" "ilaclc_" %%ILACLC %ILACLC)
                      ("ILACLR" "ilaclr_" %%ILACLR %ILACLR)
                      ("ILADIAG" "iladiag_" %%ILADIAG %ILADIAG)
                      ("ILADLC" "iladlc_" %%ILADLC %ILADLC)
                      ("ILADLR" "iladlr_" %%ILADLR %ILADLR)
                      ("ILAENV" "ilaenv_" %%ILAENV %ILAENV)
                      ("ILAENV2STAGE" "ilaenv2stage_" %%ILAENV2STAGE
                       %ILAENV2STAGE)
                      ("ILAPREC" "ilaprec_" %%ILAPREC %ILAPREC)
                      ("ILASLC" "ilaslc_" %%ILASLC %ILASLC)))

(COMMON-LISP:EXPORT
 '(%DLASWP %DLASY2 %DLASYF %DLASYF_AA %DLASYF_RK %DLASYF_ROOK %DLAT2S %DLATBS
           %DLATDF %DLATPS %DLATRD %DLATRS %DLATRZ %DLATSQR %DLAUU2 %DLAUUM
           %DOPGTR %DOPMTR %DORBDB %DORBDB1 %DORBDB2 %DORBDB3 %DORBDB4 %DORBDB5
           %DORBDB6 %DORCSD %DORCSD2BY1 %DORG2L %DORG2R %DORGBR %DORGHR %DORGL2
           %DORGLQ %DORGQL %DORGQR %DORGR2 %DORGRQ %DORGTR %DORM22 %DORM2L
           %DORM2R %DORMBR %DORMHR %DORML2 %DORMLQ %DORMQL %DORMQR %DORMR2
           %DORMR3 %DORMRQ %DORMRZ %DORMTR %DPBCON %DPBEQU %DPBRFS %DPBSTF
           %DPBSV %DPBSVX %DPBTF2 %DPBTRF %DPBTRS %DPFTRF %DPFTRI %DPFTRS
           %DPOCON %DPOEQU %DPOEQUB %DPORFS %DPORFSX %DPOSV %DPOSVX %DPOSVXX
           %DPOTF2 %DPOTRF %DPOTRF2 %DPOTRI %DPOTRS %DPPCON %DPPEQU %DPPRFS
           %DPPSV %DPPSVX %DPPTRF %DPPTRI %DPPTRS %DPSTF2 %DPSTRF %DPTCON
           %DPTEQR %DPTRFS %DPTSV %DPTSVX %DPTTRF %DPTTRS %DPTTS2 %DRSCL
           %DSB2ST_KERNELS %DSBEV %DSBEV_2STAGE %DSBEVD %DSBEVD_2STAGE %DSBEVX
           %DSBEVX_2STAGE %DSBGST %DSBGV %DSBGVD %DSBGVX %DSBTRD %DSFRK %DSGESV
           %DSPCON %DSPEV %DSPEVD %DSPEVX %DSPGST %DSPGV %DSPGVD %DSPGVX
           %DSPOSV %DSPRFS %DSPSV %DSPSVX %DSPTRD %DSPTRF %DSPTRI %DSPTRS
           %DSTEBZ %DSTEDC %DSTEGR %DSTEIN %DSTEMR %DSTEQR %DSTERF %DSTEV
           %DSTEVD %DSTEVR %DSTEVX %DSYCON %DSYCON_3 %DSYCON_ROOK %DSYCONV
           %DSYCONVF %DSYCONVF_ROOK %DSYEQUB %DSYEV %DSYEV_2STAGE %DSYEVD
           %DSYEVD_2STAGE %DSYEVR %DSYEVR_2STAGE %DSYEVX %DSYEVX_2STAGE %DSYGS2
           %DSYGST %DSYGV %DSYGV_2STAGE %DSYGVD %DSYGVX %DSYRFS %DSYRFSX %DSYSV
           %DSYSV_AA %DSYSV_AA_2STAGE %DSYSV_RK %DSYSV_ROOK %DSYSVX %DSYSVXX
           %DSYSWAPR %DSYTD2 %DSYTF2 %DSYTF2_RK %DSYTF2_ROOK %DSYTRD
           %DSYTRD_2STAGE %DSYTRD_SY2SB %DSYTRF %DSYTRF_AA %DSYTRF_AA_2STAGE
           %DSYTRF_RK %DSYTRF_ROOK %DSYTRI %DSYTRI2 %DSYTRI2X %DSYTRI_3
           %DSYTRI_3X %DSYTRI_ROOK %DSYTRS %DSYTRS2 %DSYTRS_3 %DSYTRS_AA
           %DSYTRS_AA_2STAGE %DSYTRS_ROOK %DTBCON %DTBRFS %DTBTRS %DTFSM
           %DTFTRI %DTFTTP %DTFTTR %DTGEVC %DTGEX2 %DTGEXC %DTGSEN %DTGSJA
           %DTGSNA %DTGSY2 %DTGSYL %DTPCON %DTPLQT %DTPLQT2 %DTPMLQT %DTPMQRT
           %DTPQRT %DTPQRT2 %DTPRFB %DTPRFS %DTPTRI %DTPTRS %DTPTTF %DTPTTR
           %DTRCON %DTREVC %DTREVC3 %DTREXC %DTRRFS %DTRSEN %DTRSNA %DTRSYL
           %DTRTI2 %DTRTRI %DTRTRS %DTRTTF %DTRTTP %DTZRZF %DZSUM1 %ICMAX1
           %IEEECK %ILACLC %ILACLR %ILADIAG %ILADLC %ILADLR %ILAENV
           %ILAENV2STAGE %ILAPREC %ILASLC)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
